Highlights
All Snippets
Top 100 Snippets
Librarians
gbCodeLib

By Language
VB6
JavaScript
Perl
HTML
SQL
Java
DOS

GBIC >> Source Code >> Visual Basic >> Snippet

Create elliptical form


Declare Function CreateEllipticRgn Lib "gdi32" ( ByVal X1 As Long , _
    ByVal Y1 As Long , ByVal X2 As Long , ByVal Y2 As Long ) As Long
   
Declare Function SetWindowRgn Lib "user32" ( ByVal hwnd As Long , ByVal hRgn As Long , _
    ByVal bRedraw As Boolean ) As Long
   


Dim iReturn As Long
Me .Show
iReturn = SetWindowRgn( Me .hwnd, CreateEllipticRgn(10, 25, 220, 200), True )