Private Koordinatenwerte(7) As Integer
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As _
  Single, y As Single)
Static Zähler As Integer
 
Zähler = Zähler + 1
 
If Zähler = 1 Then
  Koordinatenwerte(0) = x
  Koordinatenwerte(1) = y
ElseIf Zähler = 2 Then
  Koordinatenwerte(2) = x
  Koordinatenwerte(3) = y
ElseIf Zähler = 3 Then
  Koordinatenwerte(4) = x
  Koordinatenwerte(5) = y
ElseIf Zähler = 4 Then
  Koordinatenwerte(6) = x
  Koordinatenwerte(7) = y
  Zähler = 0
End If
 
End Sub