اين برنامه تا حدودي اعصاب خرد كن است !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

اين برنامه داراي يك command و يك form است

و اين تكه كد را بايد در رويداد mouse move قرار دهيد

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Left = Rnd * (Form1.ScaleWidth - Command1.Width)
Command1.Top = Rnd * (Form1.ScaleHeight - Command1.Height)
End Sub

حالا اگه تونستي روش كليك كن