Option Explicit
Dim Activate As Object
Dim Ausgewählt As Byte

Private Sub Form_Load()

End Sub

Private Sub lblA1_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblA1.Top + 120
    Activate.Left = lblA1.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblA2_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblA2.Top + 120
    Activate.Left = lblA2.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblA3_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblA3.Top + 120
    Activate.Left = lblA3.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblA4_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblA4.Top + 120
    Activate.Left = lblA4.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblA5_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblA5.Top + 120
    Activate.Left = lblA5.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblA6_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblA6.Top + 120
    Activate.Left = lblA6.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblA7_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblA7.Top + 120
    Activate.Left = lblA7.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblA8_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblA8.Top + 120
    Activate.Left = lblA8.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblB1_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblB1.Top + 120
    Activate.Left = lblB1.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblB2_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblB2.Top + 120
    Activate.Left = lblB2.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblB3_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblB3.Top + 120
    Activate.Left = lblB3.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblB4_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblB4.Top + 120
    Activate.Left = lblB4.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblB5_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblB5.Top + 120
    Activate.Left = lblB5.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblB6_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblB6.Top + 120
    Activate.Left = lblB6.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblB7_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblB7.Top + 120
    Activate.Left = lblB7.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblB8_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblB8.Top + 120
    Activate.Left = lblB8.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblC1_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblC1.Top + 120
    Activate.Left = lblC1.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblC2_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblC2.Top + 120
    Activate.Left = lblC2.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblC3_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblC3.Top + 120
    Activate.Left = lblC3.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblC4_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblC4.Top + 120
    Activate.Left = lblC4.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblC5_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblC5.Top + 120
    Activate.Left = lblC5.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblC6_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblC6.Top + 120
    Activate.Left = lblC6.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblC7_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblC7.Top + 120
    Activate.Left = lblC7.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblC8_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblC8.Top + 120
    Activate.Left = lblC8.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblD1_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblD1.Top + 120
    Activate.Left = lblD1.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblD2_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblD2.Top + 120
    Activate.Left = lblD2.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblD3_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblD3.Top + 120
    Activate.Left = lblD3.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblD4_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblD4.Top + 120
    Activate.Left = lblD4.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblD5_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblD5.Top + 120
    Activate.Left = lblD5.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblD6_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblD6.Top + 120
    Activate.Left = lblD6.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblD7_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblD7.Top + 120
    Activate.Left = lblD7.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblD8_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblD8.Top + 120
    Activate.Left = lblD8.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblE1_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblE1.Top + 120
    Activate.Left = lblE1.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblE2_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblE2.Top + 120
    Activate.Left = lblE2.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblE3_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblE3.Top + 120
    Activate.Left = lblE3.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblE4_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblE4.Top + 120
    Activate.Left = lblE4.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblE5_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblE5.Top + 120
    Activate.Left = lblE5.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblE6_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblE6.Top + 120
    Activate.Left = lblE6.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblE7_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblE7.Top + 120
    Activate.Left = lblE7.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblE8_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblE8.Top + 120
    Activate.Left = lblE8.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblF1_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblF1.Top + 120
    Activate.Left = lblF1.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblF2_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblF2.Top + 120
    Activate.Left = lblF2.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblF3_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblF3.Top + 120
    Activate.Left = lblF3.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblF4_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblF4.Top + 120
    Activate.Left = lblF4.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblF5_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblF5.Top + 120
    Activate.Left = lblF5.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblF6_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblF6.Top + 120
    Activate.Left = lblF6.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblF7_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblF7.Top + 120
    Activate.Left = lblF7.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblF8_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblF8.Top + 120
    Activate.Left = lblF8.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblG1_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblG1.Top + 120
    Activate.Left = lblG1.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblG2_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblG2.Top + 120
    Activate.Left = lblG2.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblG3_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblG3.Top + 120
    Activate.Left = lblG3.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblG4_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblG4.Top + 120
    Activate.Left = lblG4.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblG5_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblG5.Top + 120
    Activate.Left = lblG5.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblG6_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblG6.Top + 120
    Activate.Left = lblG6.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblG7_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblG7.Top + 120
    Activate.Left = lblG7.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblG8_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblG8.Top + 120
    Activate.Left = lblG8.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblH1_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblH1.Top + 120
    Activate.Left = lblH1.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblH2_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblH2.Top + 120
    Activate.Left = lblH2.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblH3_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblH3.Top + 120
    Activate.Left = lblH3.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblH4_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblH4.Top + 120
    Activate.Left = lblH4.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblH5_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblH5.Top + 120
    Activate.Left = lblH5.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblH6_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblH6.Top + 120
    Activate.Left = lblH6.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblH7_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblH7.Top + 120
    Activate.Left = lblH7.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblH8_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblH8.Top + 120
    Activate.Left = lblH8.Left + 120
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblWRaus1_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblWRaus1.Top
    Activate.Left = lblWRaus1.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblWRaus10_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblWRaus10.Top
    Activate.Left = lblWRaus10.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblWRaus11_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblWRaus11.Top
    Activate.Left = lblWRaus11.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblWRaus12_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblWRaus12.Top
    Activate.Left = lblWRaus12.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblWRaus13_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblWRaus13.Top
    Activate.Left = lblWRaus13.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblWRaus14_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblWRaus14.Top
    Activate.Left = lblWRaus14.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblWRaus15_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblWRaus15.Top
    Activate.Left = lblWRaus15.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblWRaus16_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblWRaus16.Top
    Activate.Left = lblWRaus16.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblWRaus2_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblWRaus2.Top
    Activate.Left = lblWRaus2.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblWRaus3_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblWRaus3.Top
    Activate.Left = lblWRaus3.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblWRaus4_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblWRaus4.Top
    Activate.Left = lblWRaus4.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblWRaus5_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblWRaus5.Top
    Activate.Left = lblWRaus5.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblWRaus6_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblWRaus6.Top
    Activate.Left = lblWRaus6.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblWRaus7_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblWRaus7.Top
    Activate.Left = lblWRaus7.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblWRaus8_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblWRaus8.Top
    Activate.Left = lblWRaus8.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblWRaus9_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblWRaus9.Top
    Activate.Left = lblWRaus9.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblSRaus1_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblSRaus1.Top
    Activate.Left = lblSRaus1.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblSRaus10_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblSRaus10.Top
    Activate.Left = lblSRaus10.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblSRaus11_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblSRaus11.Top
    Activate.Left = lblSRaus11.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblSRaus12_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblSRaus12.Top
    Activate.Left = lblSRaus12.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblSRaus13_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblSRaus13.Top
    Activate.Left = lblSRaus13.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblSRaus14_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblSRaus14.Top
    Activate.Left = lblSRaus14.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblSRaus15_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblSRaus15.Top
    Activate.Left = lblSRaus15.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblSRaus16_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblSRaus16.Top
    Activate.Left = lblSRaus16.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblSRaus2_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblSRaus2.Top
    Activate.Left = lblSRaus2.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblSRaus3_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblSRaus3.Top
    Activate.Left = lblSRaus3.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblSRaus4_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblSRaus4.Top
    Activate.Left = lblSRaus4.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblSRaus5_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblSRaus5.Top
    Activate.Left = lblSRaus5.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblSRaus6_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblSRaus6.Top
    Activate.Left = lblSRaus6.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblSRaus7_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblSRaus7.Top
    Activate.Left = lblSRaus7.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblSRaus8_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblSRaus8.Top
    Activate.Left = lblSRaus8.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub lblSRaus9_Click()
  If Ausgewählt = 1 Then
    Activate.Top = lblSRaus9.Top
    Activate.Left = lblSRaus9.Left
    Ausgewählt = 0
  Else
    MsgBox "Wählen Sie zu erst eine Figur aus.", , "Hilfe"
  End If
End Sub

Private Sub mnuEnde_Click()
    End
End Sub

Private Sub mnuNeu_Click()
    picWBauer1.Top = lblA2.Top + 120
    picWBauer1.Left = lblA2.Left + 120
    picWBauer2.Top = lblB2.Top + 120
    picWBauer2.Left = lblB2.Left + 120
    picWBauer3.Top = lblC2.Top + 120
    picWBauer3.Left = lblC2.Left + 120
    picWBauer4.Top = lblD2.Top + 120
    picWBauer4.Left = lblD2.Left + 120
    picWBauer5.Top = lblE2.Top + 120
    picWBauer5.Left = lblE2.Left + 120
    picWBauer6.Top = lblF2.Top + 120
    picWBauer6.Left = lblF2.Left + 120
    picWBauer7.Top = lblG2.Top + 120
    picWBauer7.Left = lblG2.Left + 120
    picWBauer8.Top = lblH2.Top + 120
    picWBauer8.Left = lblH2.Left + 120
    picSBauer1.Top = lblA7.Top + 120
    picSBauer1.Left = lblA7.Left + 120
    picSBauer2.Top = lblB7.Top + 120
    picSBauer2.Left = lblB7.Left + 120
    picSBauer3.Top = lblC7.Top + 120
    picSBauer3.Left = lblC7.Left + 120
    picSBauer4.Top = lblD7.Top + 120
    picSBauer4.Left = lblD7.Left + 120
    picSBauer5.Top = lblE7.Top + 120
    picSBauer5.Left = lblE7.Left + 120
    picSBauer6.Top = lblF7.Top + 120
    picSBauer6.Left = lblF7.Left + 120
    picSBauer7.Top = lblG7.Top + 120
    picSBauer7.Left = lblG7.Left + 120
    picSBauer8.Top = lblH7.Top + 120
    picSBauer8.Left = lblH7.Left + 120
    picWTurm1.Top = lblA1.Top + 120
    picWTurm1.Left = lblA1.Left + 120
    picWTurm2.Top = lblH1.Top + 120
    picWTurm2.Left = lblH1.Left + 120
    picWLäufer1.Top = lblB1.Top + 120
    picWLäufer1.Left = lblB1.Left + 120
    picWLäufer2.Top = lblG1.Top + 120
    picWLäufer2.Left = lblG1.Left + 120
    picWPferd1.Top = lblC1.Top + 120
    picWPferd1.Left = lblC1.Left + 120
    picWPferd2.Top = lblF1.Top + 120
    picWPferd2.Left = lblF1.Left + 120
    picWKönig.Top = lblE1.Top + 120
    picWKönig.Left = lblE1.Left + 120
    picWDame.Top = lblD1.Top + 120
    picWDame.Left = lblD1.Left + 120

    picSTurm1.Top = lblA8.Top + 120
    picSTurm1.Left = lblA8.Left + 120
    picSTurm2.Top = lblH8.Top + 120
    picSTurm2.Left = lblH8.Left + 120
    picSLäufer1.Top = lblB8.Top + 120
    picSLäufer1.Left = lblB8.Left + 120
    picSLäufer2.Top = lblG8.Top + 120
    picSLäufer2.Left = lblG8.Left + 120
    picSPferd1.Top = lblC8.Top + 120
    picSPferd1.Left = lblC8.Left + 120
    picSPferd2.Top = lblF8.Top + 120
    picSPferd2.Left = lblF8.Left + 120
    picSKönig.Top = lblE8.Top + 120
    picSKönig.Left = lblE8.Left + 120
    picSDame.Top = lblD8.Top + 120
    picSDame.Left = lblD8.Left + 120
End Sub

Private Sub picSBauer1_Click()
    Set Activate = picSBauer1
    Ausgewählt = 1
End Sub

Private Sub picSBauer2_Click()
    Set Activate = picSBauer2
    Ausgewählt = 1
End Sub

Private Sub picSBauer3_Click()
    Set Activate = picSBauer3
    Ausgewählt = 1
End Sub

Private Sub picSBauer4_Click()
    Set Activate = picSBauer4
    Ausgewählt = 1
End Sub

Private Sub picSBauer5_Click()
    Set Activate = picSBauer5
    Ausgewählt = 1
End Sub

Private Sub picSBauer6_Click()
    Set Activate = picSBauer6
    Ausgewählt = 1
End Sub

Private Sub picSBauer7_Click()
    Set Activate = picSBauer7
    Ausgewählt = 1
End Sub

Private Sub picSBauer8_Click()
    Set Activate = picSBauer8
    Ausgewählt = 1
End Sub

Private Sub picSDame_Click()
    Set Activate = picSDame
    Ausgewählt = 1
End Sub

Private Sub picSKönig_Click()
    Set Activate = picSKönig
    Ausgewählt = 1
End Sub

Private Sub picSLäufer1_Click()
    Set Activate = picSLäufer1
    Ausgewählt = 1
End Sub

Private Sub picSLäufer2_Click()
    Set Activate = picSLäufer2
    Ausgewählt = 1
End Sub

Private Sub picSPferd1_Click()
    Set Activate = picSPferd1
    Ausgewählt = 1
End Sub

Private Sub picSPferd2_Click()
    Set Activate = picSPferd2
    Ausgewählt = 1
End Sub

Private Sub picSTurm1_Click()
    Set Activate = picSTurm1
    Ausgewählt = 1
End Sub

Private Sub picSTurm2_Click()
    Set Activate = picSTurm2
    Ausgewählt = 1
End Sub

Private Sub picWBauer1_Click()
    Set Activate = picWBauer1
    Ausgewählt = 1
End Sub

Private Sub picWBauer2_Click()
    Set Activate = picWBauer2
    Ausgewählt = 1
End Sub

Private Sub picWBauer3_Click()
    Set Activate = picWBauer3
    Ausgewählt = 1
End Sub

Private Sub picWBauer4_Click()
    Set Activate = picWBauer4
    Ausgewählt = 1
End Sub

Private Sub picWBauer5_Click()
    Set Activate = picWBauer5
    Ausgewählt = 1
End Sub

Private Sub picWBauer6_Click()
    Set Activate = picWBauer6
    Ausgewählt = 1
End Sub

Private Sub picWBauer7_Click()
    Set Activate = picWBauer7
    Ausgewählt = 1
End Sub

Private Sub picWBauer8_Click()
    Set Activate = picWBauer8
    Ausgewählt = 1
End Sub

Private Sub picWDame_Click()
    Set Activate = picWDame
    Ausgewählt = 1
End Sub

Private Sub picWKönig_Click()
    Set Activate = picWKönig
    Ausgewählt = 1
End Sub

Private Sub picWLäufer1_Click()
    Set Activate = picWLäufer1
    Ausgewählt = 1
End Sub

Private Sub picWLäufer2_Click()
    Set Activate = picWLäufer2
    Ausgewählt = 1
End Sub

Private Sub picWPferd1_Click()
    Set Activate = picWPferd1
    Ausgewählt = 1
End Sub

Private Sub picWPferd2_Click()
    Set Activate = picWPferd2
    Ausgewählt = 1
End Sub

Private Sub picWTurm1_Click()
    Set Activate = picWTurm1
    Ausgewählt = 1
End Sub

Private Sub picWTurm2_Click()
    Set Activate = picWTurm2
    Ausgewählt = 1
End Sub