Create a round form

by Angsuman Banerji (23 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 4^th January 2008
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Create a round form

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

Rate Create a round 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

Create a round form Comments

No comments have been posted about Create a round form. Why not be the first to post a comment about Create a round form.

Create a round form

Create a round form Comments

Post your comment

Difficulty