cool form closing code
2 posters
Page 1 of 1
cool form closing code
INSTRUCTIONS:
1) Start up a new project In your VB.
2) Make a Label
3) Add the code below To the label. Done
Code:
Private Sub Label1_Click()
Top = (Screen.Height - Width) / 1
Left = (Screen.Width - Height) / 2
Top = (Screen.Height - Width) / 3
Left = (Screen.Width - Height) / 4
Top = (Screen.Height - Width) / 5
Left = (Screen.Width - Height) / 6
Top = (Screen.Height - Width) / 7
Left = (Screen.Width - Height) / 8
Top = (Screen.Height - Width) / 9
Top = (Screen.Height - Width) / 10
Left = (Screen.Width - Height) / 12
Top = (Screen.Height - Width) / 13
Left = (Screen.Width - Height) / 14
Top = (Screen.Height - Width) / 15
Left = (Screen.Width - Height) / 16
Top = (Screen.Height - Width) / 17
Left = (Screen.Width - Height) / 18
Top = (Screen.Height - Width) / 19
Left = (Screen.Width - Height) / 20
Top = (Screen.Height - Width) / 21
Left = (Screen.Width - Height) / 22
Top = (Screen.Height - Width) / 23
Left = (Screen.Width - Height) / 24
Top = (Screen.Height - Width) / 25
Left = (Screen.Width - Height) / 26
Top = (Screen.Height - Width) / 27
Left = (Screen.Width - Height) / 28
Top = (Screen.Height - Width) / 29
Left = (Screen.Width - Height) / 30
Top = (Screen.Height - Width) / 31
Left = (Screen.Width - Height) / 32
Top = (Screen.Height - Width) / 31
Top = (Screen.Height - Width) / 30
Left = (Screen.Width - Height) / 29
Top = (Screen.Height - Width) / 28
Left = (Screen.Width - Height) / 27
Top = (Screen.Height - Width) / 26
Left = (Screen.Width - Height) / 25
Top = (Screen.Height - Width) / 24
Left = (Screen.Width - Height) / 23
Top = (Screen.Height - Width) / 22
Top = (Screen.Height - Width) / 21
Left = (Screen.Width - Height) / 20
Top = (Screen.Height - Width) / 19
Left = (Screen.Width - Height) / 18
Top = (Screen.Height - Width) / 17
Left = (Screen.Width - Height) / 16
Top = (Screen.Height - Width) / 15
Left = (Screen.Width - Height) / 14
Top = (Screen.Height - Width) / 13
Left = (Screen.Width - Height) / 12
Top = (Screen.Height - Width) / 11
Left = (Screen.Width - Height) / 10
Top = (Screen.Height - Width) / 9
Left = (Screen.Width - Height) / 8
Top = (Screen.Height - Width) / 7
Left = (Screen.Width - Height) / 6
Top = (Screen.Height - Width) / 5
Left = (Screen.Width - Height) / 4
Top = (Screen.Height - Width) / 3
Left = (Screen.Width - Height) / 2
Top = (Screen.Width + Height) / 2
Left = (Screen.Height + Width) / 3
Top = (Screen.Width + Height) / 4
Left = (Screen.Height + Width) / 5
Top = (Screen.Width + Height) / 6
Left = (Screen.Height + Width) / 7
Top = (Screen.Width + Height) / 8
Left = (Screen.Height + Width) / 9
Top = (Screen.Width + Height) / 10
Left = (Screen.Height + Width) / 11
Top = (Screen.Width + Height) / 12
Left = (Screen.Height + Width) / 13
Top = (Screen.Width + Height) / 14
Left = (Screen.Height + Width) / 15
Top = (Screen.Width + Height) / 16
Left = (Screen.Height + Width) / 17
Top = (Screen.Width + Height) / 18
Left = (Screen.Height + Width) / 19
Top = (Screen.Width + Height) / 20
Left = (Screen.Height + Width) / 21
Top = (Screen.Width + Height) / 22
Left = (Screen.Height + Width) / 23
Top = (Screen.Width + Height) / 24
Left = (Screen.Height + Width) / 25
Top = (Screen.Width + Height) / 26
Left = (Screen.Height + Width) / 27
Top = (Screen.Width + Height) / 28
Left = (Screen.Height + Width) / 29
Top = (Screen.Width + Height) / 30
Left = (Screen.Height + Width) / 31
Top = (Screen.Width + Height) / 32
Left = (Screen.Height + Left) / 31
Top = (Screen.Width + Top) / 30
Left = (Screen.Height + Left) / 29
Top = (Screen.Width + Top) / 28
Left = (Screen.Height + Left) / 27
Top = (Screen.Width + Top) / 26
Left = (Screen.Height + Left) / 25
Top = (Screen.Width + Top) / 24
Left = (Screen.Height + Left) / 23
Top = (Screen.Width + Top) / 22
Left = (Screen.Height + Left) / 21
Top = (Screen.Width + Top) / 20
Left = (Screen.Height + Left) / 19
Top = (Screen.Width + Top) / 18
Left = (Screen.Height + Left) / 17
Top = (Screen.Width + Top) / 16
Left = (Screen.Height + Left) / 15
Top = (Screen.Width + Top) / 14
Left = (Screen.Height + Left) / 13
Top = (Screen.Width + Top) / 12
Left = (Screen.Height + Left) / 11
Top = (Screen.Width + Top) / 10
Left = (Screen.Height + Left) / 9
Top = (Screen.Width + Top) / 8
Left = (Screen.Height + Left) / 7
Top = (Screen.Width + Top) / 6
Left = (Screen.Height + Left) / 5
Top = (Screen.Width + Top) / 4
Left = (Screen.Height + Left) / 3
Top = (Screen.Width + Top) / 2
Left = (Screen.Height + Left) / 1
Form1.Show
End Sub
1) Start up a new project In your VB.
2) Make a Label
3) Add the code below To the label. Done
Code:
Private Sub Label1_Click()
Top = (Screen.Height - Width) / 1
Left = (Screen.Width - Height) / 2
Top = (Screen.Height - Width) / 3
Left = (Screen.Width - Height) / 4
Top = (Screen.Height - Width) / 5
Left = (Screen.Width - Height) / 6
Top = (Screen.Height - Width) / 7
Left = (Screen.Width - Height) / 8
Top = (Screen.Height - Width) / 9
Top = (Screen.Height - Width) / 10
Left = (Screen.Width - Height) / 12
Top = (Screen.Height - Width) / 13
Left = (Screen.Width - Height) / 14
Top = (Screen.Height - Width) / 15
Left = (Screen.Width - Height) / 16
Top = (Screen.Height - Width) / 17
Left = (Screen.Width - Height) / 18
Top = (Screen.Height - Width) / 19
Left = (Screen.Width - Height) / 20
Top = (Screen.Height - Width) / 21
Left = (Screen.Width - Height) / 22
Top = (Screen.Height - Width) / 23
Left = (Screen.Width - Height) / 24
Top = (Screen.Height - Width) / 25
Left = (Screen.Width - Height) / 26
Top = (Screen.Height - Width) / 27
Left = (Screen.Width - Height) / 28
Top = (Screen.Height - Width) / 29
Left = (Screen.Width - Height) / 30
Top = (Screen.Height - Width) / 31
Left = (Screen.Width - Height) / 32
Top = (Screen.Height - Width) / 31
Top = (Screen.Height - Width) / 30
Left = (Screen.Width - Height) / 29
Top = (Screen.Height - Width) / 28
Left = (Screen.Width - Height) / 27
Top = (Screen.Height - Width) / 26
Left = (Screen.Width - Height) / 25
Top = (Screen.Height - Width) / 24
Left = (Screen.Width - Height) / 23
Top = (Screen.Height - Width) / 22
Top = (Screen.Height - Width) / 21
Left = (Screen.Width - Height) / 20
Top = (Screen.Height - Width) / 19
Left = (Screen.Width - Height) / 18
Top = (Screen.Height - Width) / 17
Left = (Screen.Width - Height) / 16
Top = (Screen.Height - Width) / 15
Left = (Screen.Width - Height) / 14
Top = (Screen.Height - Width) / 13
Left = (Screen.Width - Height) / 12
Top = (Screen.Height - Width) / 11
Left = (Screen.Width - Height) / 10
Top = (Screen.Height - Width) / 9
Left = (Screen.Width - Height) / 8
Top = (Screen.Height - Width) / 7
Left = (Screen.Width - Height) / 6
Top = (Screen.Height - Width) / 5
Left = (Screen.Width - Height) / 4
Top = (Screen.Height - Width) / 3
Left = (Screen.Width - Height) / 2
Top = (Screen.Width + Height) / 2
Left = (Screen.Height + Width) / 3
Top = (Screen.Width + Height) / 4
Left = (Screen.Height + Width) / 5
Top = (Screen.Width + Height) / 6
Left = (Screen.Height + Width) / 7
Top = (Screen.Width + Height) / 8
Left = (Screen.Height + Width) / 9
Top = (Screen.Width + Height) / 10
Left = (Screen.Height + Width) / 11
Top = (Screen.Width + Height) / 12
Left = (Screen.Height + Width) / 13
Top = (Screen.Width + Height) / 14
Left = (Screen.Height + Width) / 15
Top = (Screen.Width + Height) / 16
Left = (Screen.Height + Width) / 17
Top = (Screen.Width + Height) / 18
Left = (Screen.Height + Width) / 19
Top = (Screen.Width + Height) / 20
Left = (Screen.Height + Width) / 21
Top = (Screen.Width + Height) / 22
Left = (Screen.Height + Width) / 23
Top = (Screen.Width + Height) / 24
Left = (Screen.Height + Width) / 25
Top = (Screen.Width + Height) / 26
Left = (Screen.Height + Width) / 27
Top = (Screen.Width + Height) / 28
Left = (Screen.Height + Width) / 29
Top = (Screen.Width + Height) / 30
Left = (Screen.Height + Width) / 31
Top = (Screen.Width + Height) / 32
Left = (Screen.Height + Left) / 31
Top = (Screen.Width + Top) / 30
Left = (Screen.Height + Left) / 29
Top = (Screen.Width + Top) / 28
Left = (Screen.Height + Left) / 27
Top = (Screen.Width + Top) / 26
Left = (Screen.Height + Left) / 25
Top = (Screen.Width + Top) / 24
Left = (Screen.Height + Left) / 23
Top = (Screen.Width + Top) / 22
Left = (Screen.Height + Left) / 21
Top = (Screen.Width + Top) / 20
Left = (Screen.Height + Left) / 19
Top = (Screen.Width + Top) / 18
Left = (Screen.Height + Left) / 17
Top = (Screen.Width + Top) / 16
Left = (Screen.Height + Left) / 15
Top = (Screen.Width + Top) / 14
Left = (Screen.Height + Left) / 13
Top = (Screen.Width + Top) / 12
Left = (Screen.Height + Left) / 11
Top = (Screen.Width + Top) / 10
Left = (Screen.Height + Left) / 9
Top = (Screen.Width + Top) / 8
Left = (Screen.Height + Left) / 7
Top = (Screen.Width + Top) / 6
Left = (Screen.Height + Left) / 5
Top = (Screen.Width + Top) / 4
Left = (Screen.Height + Left) / 3
Top = (Screen.Width + Top) / 2
Left = (Screen.Height + Left) / 1
Form1.Show
End Sub
Re: cool form closing code
dude.. bt what is the function of that code???? can't we just use end to terminate form/app??????
rup3shh- Posts : 20
Points : 20
Reputation : 0
Join date : 2012-11-01
Age : 28
Location : Nepal
Similar topics
» add audio music in ur vb6 form
» get winamp update in vb form
» Make ur vb form transpret
» Simple Code For PVt all user room at a time
» MigDuel Chat Free
» get winamp update in vb form
» Make ur vb form transpret
» Simple Code For PVt all user room at a time
» MigDuel Chat Free
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
|
|
Thu Apr 09, 2020 3:53 am by love62
» Dark B00mb3r by fajiil-(free)
Mon Apr 11, 2016 3:22 pm by me.punk.7
» ID creator with proxy changer and gmail dot generator
Sat Apr 09, 2016 7:47 pm by me.punk.7
» Unlimited Ids Login , Balance And Level Checker
Sat Apr 09, 2016 7:45 pm by me.punk.7
» Multy credit transfer project
Sun Feb 21, 2016 6:53 am by rezkiye
» Sockmix v2.6 Fresh Project
Fri Nov 20, 2015 12:08 pm by papeshh
» Offline Registration SYstem And Key Generator By DevelopMig33.Tk
Fri Nov 20, 2015 12:08 pm by papeshh
» All Ocx Box
Thu Oct 22, 2015 7:26 am by papeshh
» multy maker + auto activator ( updated )
Thu Oct 22, 2015 7:15 am by papeshh