Formunuza 1 adet button ekleyin.


Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = "Tıklama Sakın"

End Sub

Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
Button1.Left = Rnd() * Width - 50
Button1.Top = Rnd() * Height - 50
End Sub