Create a circular form

Task: Create a circular form (VB)

Declarations

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal

Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long,

ByVal hRgn As Long, ByVal bRedraw As Long) As Long

Code

'place this code in the form load event

Private Sub Form_Load()

Dim lngRegion As Long

Dim lngReturn As Long

Dim lngFormWidth As Long

Dim lngFormHeight As Long

lngFormWidth = Me.Width / Screen.TwipsPerPixelX

lngFormHeight = Me.Height / Screen.TwipsPerPixelY

lngRegion = CreateEllipticRgn(0, 0, lngFormWidth, lngFormHeight)

lngReturn = SetWindowRgn(Me.hWnd, lngRegion, True)

End Sub