Form circular
Adicione o seguinte código nas declarações da form:
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
Agora no form load:
Dim hr&, dl&
Dim usew&, useh&
usew& = me.Width / Screen.TwipsPerPixelX
useh& = me.Height / Screen.TwipsPerPixelY
x = 0
hr& = CreateEllipticRgn(0, 0, usew, useh) ‘Faz a _
‘forma da janela numa forma de um círculo descrito por x1,y1,x2,y2
dl& = SetWindowRgn(me.hWnd, hr, True)
Obs.: mude o nome “Screen” para o nome do seu formulário
