'Beispiel: VB .Net - Joke - Maus per Zufall ueber den Desktop springen lassen ' Option Explicit On Option Strict On Public Class Form1 Private Structure ScreenBounds Public x As Integer Public y As Integer Public CursorX As Integer Public CursorY As Integer End Structure Private sb As New ScreenBounds Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load Me.CenterToScreen() With Me.Timer1 .Interval = 500 .Enabled = True With Me.sb .x = Screen.PrimaryScreen.Bounds.Width .y = Screen.PrimaryScreen.Bounds.Height End With End With End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Timer1.Tick Randomize() Dim rnd As New System.Random() With Me.sb .CursorX = rnd.Next((.x - .x) + 10, .x) .CursorY = rnd.Next((.y - .y) + 10, .y) Call Joke(.CursorX, .CursorY) End With End Sub Private Sub Joke(ByVal x As Integer, ByVal y As Integer) Try Debug.WriteLine(Me.sb.x.ToString() & System.Convert.ToChar(9) & Me.sb.y.ToString()) Windows.Forms.Cursor.Position = New Point(x, y) Me.Text = Windows.Forms.Cursor.Position.X.ToString() & "x" & Windows.Forms.Cursor.Position.Y.ToString() Catch End Try End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Application.Exit() End Sub End Class