[VB6] Cara Membuat Button Menghindari Cursor

[VB6] Cara Membuat Button Menghindari Cursor - Mungkin ada yang belum mengerti maksud judul saya, jadi, download aplikasih contohnya dulu :

Project007.exe (24,0KB)

Kalau sudah di download pasti udah tau maksudnya.

Tidak usah bertele² langsung saja  :

Bahan :

• 1 command button (name : cmduhd)

Cara :

• . Masukan kode ke dalam form dengan kode berikut :

Private Sub cmduhd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmduhd.Left = Int(Rnd * (Form1.Width - cmduhd.Width))
'Credits By UHD
cmduhd.Top = Int(Rnd * (Form1.Height - cmduhd.Height))
End Sub

•   Jadi deh, bisa di test dengan memencet F5.

•   Jika ada yang error, kirim SS ke comment.

 Walaupun tutorial ini singkat sekali -_- ya mungkin saja membantu :D