¿Alguna vez ha querido realizar una ventana que no sea cuadrada?. En Windows es posible crear una ventana de cualquier forma imaginable, sólo hay que definir la región que se va a usar y listo. Para efectos del ejemplo se utilizarán ventanas circulares.

Ejecute Visual Basic y cree un proyecto Estándar EXE. Coloque un botón de comando en el centro de formulario e introduzca el siguiente código en la sección de Declaraciones Generales del formulario:

 

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

Sub Command1_Click()

   Dim ValRet As Long

   ValRet = CreateEllipticRgn(10, 10, 300, 300)
   SetWindowRgn Me.hWnd, ValRet, True

End Sub

Ejecute el programa presionando F5 y al mostrarse la ventana haga clic en el botón de comando. Para salir presione Alt-F4.