Task: Create a circular form (VB)
Declarations
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 Long) As Long
Code
'place this code in the form load event
Private Sub Form_Load()
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
5 comments:
Buy Cialis, Viagra, Levitra, Tamiflu. Get Cheap Drugs online. Buy Pills Central.
[url=http://buypillscentral.com/about_en-us.htm]Discount Viagra, Cialis, Levitra, Tamiflu Drugstore Online[/url]. rx generic pills. Top quality medications pharmacy
On the side of multitudinous years Buy Cialis Discount Dispensary has been recognizable among unequalled online drugstore suppliers and customers everywhere buy Viagra Online the world.
Our decorous support together of hilarious equipped pharmacists wishes take you discount Cialis Online, consulting on varied health questions.
Here you all you need naydesh
[url=http://bjwsutw.q.gp/57/index.html]ladies in mature f[/url]
[url=http://bhvetmt.beeinflusst.de/76/index.html]nurse komugi witch h[/url]
[url=http://bhvetmt.beeinflusst.de/72/index.html]lunar irc anime q[/url]
[url=http://bjwsutw.q.gp/58/index.html]messy anal cum 556[/url]
[url=http://bheqmuf.quests.eu/59/map.html]anime doll voodoo v[/url]
[url=http://bhvetmt.beeinflusst.de/65/map.html]honeymoon anime pc map 85[/url]
[url=http://bdimuel.unprecedented.de/66/map.html]anime hungry heart map 407[/url]
See you soon
Good day
[url=http://stomach.rack111.com/calcium/31/map.html]carbonate and calcium map s[/url]
[url=http://paralegaltexas.55fast.com/52/map.html]hair loss dermatologist map 78[/url]
[url=http://cojiuuu.akquiriert.de/53/index.html]repair service credit u[/url]
[url=http://cojiuuu.akquiriert.de/43/map.html]credit machine card v[/url]
[url=http://cmbmonl.us.ly/74/map.html]score under credit map f[/url]
[url=http://cmbmonl.us.ly/44/map.html]consumer credit rating map 464[/url]
[url=http://cojiuuu.akquiriert.de/41/map.html]credit card fraud map 584[/url]
See you soon
Post a Comment