RE:Como hacer formularios no rectangulares?
Yo tengo un código para hacer un formulario en forma de elipse. Ahí va:
'Código para crear un formulario redondo extraido de una web de apis
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
Private Sub 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) 'Hace un formulario con forma de círculo descrito por x1,y1,x2,y2
hr& = CreateEllipticRgn(5, 50, usew, useh)
dl& = SetWindowRgn(Me.hWnd, hr, True)
Me.Width = Me.Width + 100
Me.Height = Me.Height + 100
No sé si habrá que agregar algo, es que es de hace un año y ya no me acuerdo!. Prueba a ver si te va, si no dímelo por el foro. Un saludo!.