• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Design a Circular form an API call

Design a Circular form an API call

Design a Circular form an API call

API Declarations


Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long



Rate Design a Circular form an API call

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

End
End Sub

Private Sub Form_Load()
    Dim lngRegion As Long
    Dim lngReturn As Long
    Dim lngFormWidth As Long
    Dim lngFormHeight As Long
    Form1.Caption = "                        Circular Form"
    Command1.Caption = "Designed by"
    Command2.Caption = "   Liaqat  "
        
    lngFormWidth = Me.Width / Screen.TwipsPerPixelX
    lngFormHeight = Me.Height / Screen.TwipsPerPixelY
    lngRegion = CreateEllipticRgn(0, 0, lngFormWidth, lngFormHeight)
    lngReturn = SetWindowRgn(Me.hWnd, lngRegion, True)
           
End Sub