[VB .NET] Random position?

[enco]

Ich denke das sollte passen:

Public Class Form1
    Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseMove
        Button1.Left = (Rnd() * (Me.Width - Button1.Width)) + 1
        Button1.Top = (Rnd() * (Me.Height - Button1.Height)) + 1
    End Sub
End Class

Benötigt wird eine Form (Name egal) mit einem Button (Button1). Wenn du die Maus über den Button bewegst, dann wechselt der Button die Position.