Dim HRGN1, HRGN2, HRGN                                                                      Dim retVal, hSkinBmp
HRGN1 = CreateEllipticRgn(20, -20, 190, 150)
HRGN2 = CreateEllipticRgn(140, 100, 300, 240)
HRGN3 = CombineRgn(HRGN1, HRGN1, HRGN2, RGN_OR)
retVal = SetWindowRgn(hWnd, HRGN1, True)
retVal = DeleteObject(HRGN1)
retVal = DeleteObject(HRGN2)

Option Compare Database
Option Explicit

Public Const RGN_OR = 2

Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type

Public Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal HRGN As Long, ByVal bRedraw As Boolean) As Long

Public Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long

Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

'Public Declare Function LoadBitmap Lib "user32" Alias "LoadBitmapA" (ByVal hInstance As Long, ByVal lpBitmapName As String) As Long
Public Declare Function LoadImage Lib "user32" Alias "LoadImageA" _
   (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, _
   ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long