'declare these in a .bas or the forms declerations part first.

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 Boolean) As Long

'heres the function an it would look like
'call cutcircle(me,0,0,60,60) that would make circular form

Function CutCirCle(Form As Form, Left, Top, Fat, Tall)
SetWindowRgn Form.hWnd, CreateEllipticRgn(Left,_
Top, Fat, Tall), True
End Function

º Jeff King
º sixandgh@hotmail.com
º http://members.xoom.com/sixandgh
º makin circular forms