Change the shape of the form

by T.Saroj kumar (2 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 30^th March 2004
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

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

Rate Change the shape of the form



    Dim lngRegion As Long
    Dim lngReturn As Long
    Dim lngFormWidth As Long
    Dim lngFormHeight As Long
    
    lngFormWidth = Me.Width / Screen.TwipsPerPixelX
    lngFormHeight = Me.Height / Screen.TwipsPerPixelY
    lngRegion = CreateEllipticRgn(0, 0, lngFormWidth, lngFormHeight)
    lngReturn = SetWindowRgn(Me.hWnd, lngRegion, True)
End Sub

Download this snippet Add to My Saved Code

Change the shape of the form Comments

No comments have been posted about Change the shape of the form. Why not be the first to post a comment about Change the shape of the form.

Change the shape of the form

Change the shape of the form Comments

Post your comment

Difficulty