CoolfrmClose

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

Inserite una Label nel progetto e passategli
questo codice