Formularios Elipticos

Sejo
25 de Julio del 2004
Por favor Nesecito codigo fuente para la diseño de formularios elipticos.

Cristian
25 de Julio del 2004
Hola

Coloca el siguiente codigo en el formulario
Dim Retorno As Variant
Dim RGN As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X As Long, ByVal Y 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

Private Sub Form_Load()
RGN = CreateEllipticRgn(0, 0, 218, 218)
Retorno = SetWindowRgn(Me.hWnd, RGN, True)
End Sub

Cambia la propiedad BorderStyle del formulario a 0-None

Saludos
Visita www.theemulator.tk (Emuladores y Roms)