VISUAL BASIC.NET / Fareden Kaçan Button Yapmak

Formunuza 1 adet button ekleyin.[/COLOR][/SIZE][/FONT][/CENTER]
[FONT=Trebuchet MS][SIZE=6][COLOR=#8000ff]
[CENTER] 
 
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