Public Class Form1
 
    Public xl1 As Integer
    Public yl1 As Integer
    Public Sieg As DialogResult
    Public i As Integer = 1
    Public xl2 As Integer
    Public yl2 As Integer
    Public zahl As New Random
    Public Zufall As New Random
    Public Zufallsbewegung As Integer
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
        xl1 = Label1.Location.X
        yl1 = Label1.Location.Y
 
        Select Case e.KeyCode
            Case Keys.Right
                Label1.Location = New Point(xl1 + 40, yl1)
                e.Handled = True
            Case Keys.Left
                Label1.Location = New Point(xl1 - 40, yl1)
                e.Handled = True
            Case Keys.Up
                Label1.Location = New Point(xl1, yl1 - 40)
                e.Handled = True
            Case Keys.Down
                Label1.Location = New Point(xl1, yl1 + 40)
                e.Handled = True
        End Select
 
        If Label1.Location = Label2.Location Then
            Sieg = MessageBox.Show("SIEG!", "SIEG!")
            i += 1
            Timer1.Stop()
        End If
 
        If SIEG = Windows.Forms.DialogResult.OK Then
            Me.Text = "Level " + i.ToString()
            Label1.Location = New Point(50, 50)
            Label2.Location = New Point(410, 290)
            Timer1.Start()
            SIEG = Windows.Forms.DialogResult.Abort
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        MessageBox.Show("Willkommen bie Quadratoplex!Sie müssen mit ihrem" & _
          "Quadrat (rot) das gegnerische Quadrat (grün) einfangen.", _
          "Willkommen", MessageBoxButtons.OK, MessageBoxIcon.None)
        Label1.Focus()
        Timer1.Start()
    End Sub
 
    Private Sub Form1_TextChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.TextChanged
 
        Timer1.Interval = Convert.ToInt32(Timer1.Interval / i)
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
 
        xl2 = Label2.Location.X
        yl2 = Label2.Location.Y
        Zufallsbewegung = Zufall.Next(12)
 
        If Zufallsbewegung = 1 Or Zufallsbewegung = 7 Or Zufallsbewegung = 10 _
          Then
            Label2.Location = New Point(xl2 + zahl.Next(2) * 40,yl2 + zahl.Next( _
            2) * 40)          
        ElseIf Zufallsbewegung = 2 Or Zufallsbewegung = 6 Or Zufallsbewegung = _
        12 Then
            Label2.Location = New Point(xl2 - zahl.Next(2) * 40,yl2 + zahl.Next( _
            2) * 40)           
        ElseIf Zufallsbewegung = 3 Or Zufallsbewegung = 11 Or Zufallsbewegung = _
        5 Then
            Label2.Location = New Point(xl2 + zahl.Next(2) * 40,yl2 - zahl.Next( _
            2) * 40)           
        ElseIf Zufallsbewegung = 4 Or Zufallsbewegung = 8 Or Zufallsbewegung = _
        9 Then
            Label2.Location = New Point(xl2 - zahl.Next(2) * 40,yl2 - zahl.Next( _
            2) * 40)
        End If
    End Sub
End Class