[VB] Membuat Form Gila

Daripada bengong ngeliatin ikan lele berenang di belakang rumah, mending coding didepan PC saya walaupun
cuma berpentium 3, RAM nya cuma 128 MB, Hardisk 40 GB boleh meminjam, mouse nya sudah isolasian, dan monitornya berbunyi
saya tetap hepi coding didepannya, karena dia adalah sudah menjadi temanku sehari-hari. Hehehe, malah curhat.

Idenya adalah membuat Form yang geraknya tidak terkendali, cukup simple sih. Saya yakin semua programmer VB juga bisa membuatnya.

Deklarasi:
1 Form
1 COmmandButton
1 Timer

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Me.Move Int(Me.Left * Rnd + 3000), Int(Me.Top * Rnd) + 2000
Me.SetFocus
End Sub

ya udah, Gila dan simple kan! EOF

Jangan Lupa Komentar Yaa..