Minggu, 20 Februari 2011

Crazy Form

Belum pernah dengarkan Script yang ini?
Silahkan mencoba, Script ini hanya untuk menghibur (Tell Joke).

[Script Code] :


Private Sub Timer1_Timer()
Dim Height As String
Dim Width As String
Dim Top As String
Dim Left As String
Randomize
Height = Int(Rnd * 10000)
Width = Int(Rnd * 10000)
Top = Int(Rnd * Screen.Height)
Left = Int(Rnd * Screen.Width)
Form1.Height = Height
Form1.Width = Width
Form1.Top = Top
Form1.Left = Left
End Sub

Tidak ada komentar:

Poskan Komentar