Membuat Command Button Liar dan Sulit Dikendalikan di VB 6.0

Mau Liat command button menjadi liar dan sulit untuk di kendalikan??

cobain aja.. pasti kalian nyerah…!!!! :lol: :lol:

pertama tama buat dulu form ma Command Buttonx

lalu copikan source di bawah ini..!!!

*Selamat mencoba😀

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim a, b As Integer
a = Rnd * (Me.Height - Command1.Height - 10)
b = Rnd * (Me.Width - Command1.Width - 10)
Command1.Top = a
Command1.Left = b
End Sub

Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s