Kodlar sadece 2 satırdan ibaret.
Çalıştığında siz fare imlecini button'un üzerine getirdiginizde buton kaçaçaktır, yani tıklayamayacaksınız.
1 adet button ekliyoruz ve buttona aşağıdaki kodu yazıyoruz.
Çalıştığında siz fare imlecini button'un üzerine getirdiginizde buton kaçaçaktır, yani tıklayamayacaksınız.
1 adet button ekliyoruz ve buttona aşağıdaki kodu yazıyoruz.
Kod:
Public Class Form1 Dim rnd As New Random Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove Button1.Left = rnd.Next(0, Me.Bounds.Width - Button1.Width) Button1.Top = rnd.Next(0, Me.Bounds.Height - Button1.Height) End Sub End Class
