Cara Membuat Button Menghindari Cursor VB6

mungkin ada yang belum mengerti maksud judul saya, jadi, download aplikasih contohnya dulu di :
Project007.exe (24,0KB)

kalo sudah di download pasti udah tw maksudnya....
tidak usah bertele² langsung saja  :
Bahan :
1 command button (name : cmduhd)

Tutorial :
. 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 comments....