RE:cambiar forma de formularios
Código para un formulario elíptico :
Propiedad BorderStyle = None
Declaraciones:
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, _
ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, _
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Codigo:
Private Sub Form_Load()
Dim Xs, Ys As Long
Xs = Width / Screen.TwipsPerPixelX
Ys = Height / Screen.TwipsPerPixelY
SetWindowRgn hwnd, CreateEllipticRgn(0, 0, Xs, Ys), True
End Sub