Ich hätte da eine Lösung die funktioniert
Code:Public Class Form1 Dim random As New System.Random Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = True Timer1.Interval = 700 End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Me.Location = New Point(random.Next(10, 800), random.Next(10, 800)) End Sub End Class
viel Spaß damit
z0ND