Private v_Falsch As Integer
 
Private Sub cmd_Beenden_Click()
    End
End Sub
 
Private Sub cmd_OK_Click()
 
    Dim Richtig As Boolean
 
    ''''''''''''''''''''''RICHTIG''''''''''''''''''
    If txt_Raten.Text = v_BS1 Then
        lbl_1.Caption = txt_Raten.Text
        Richtig = True
    End If
 
    If txt_Raten.Text = v_BS2 Then
        lbl_2.Caption = txt_Raten.Text
        Richtig = True
   End If
''''Das wiederholt sich noch bis 8, passte aber nicht mehr in diesen _
  beitrag...'''''''''
 
    If v_Anzahl = 1 Then
        If lbl_1.Caption <> "" Then
            txt_Raten.Text = ""
            MsgBox "Herzlichen Glückwunsch! Du hast das gesuchte Wort erraten!"
            Dim Frage As VbMsgBoxResult
            Frage = MsgBox("Möchtest du ein neues Spiel starten?", vbYesNo)
            If Frage = vbYes Then
                Load frm_Willkommen
                frm_Willkommen.Show
                Unload frm_Galgenmännchen
                frm_Galgenmännchen.Hide
            Else
                MsgBox "Galgenmännchen wird jetzt geschlossen. Auf Wiedersehen!"
                Unload frm_Galgenmännchen
                frm_Galgenmännchen.Hide
                Unload frm_Willkommen
                frm_Willkommen.Hide
                End
            End If
        End If
    End If
''''Das wiederholt sich noch bis 8, passte aber nicht mehr in diesen _
  beitrag...'''''''''
 
 
 
 
 
''''''''''''''''''FALSCH''''''''''''''''''''''''''
 
 
If Richtig = False Then
    If txt_Raten.Text <> v_BS1 Or txt_Raten.Text <> v_BS2 Or _
      txt_Raten.Text <> v_BS3 Or txt_Raten.Text <> v_BS4 Or _
      txt_Raten.Text <> v_BS5 Or txt_Raten.Text <> v_BS6 Or _
      txt_Raten.Text <> v_BS7 Or txt_Raten.Text <> v_BS8 Then
        v_Falsch = v_Falsch + 1
    End If
End If
 
txt_Raten.Text = ""
 
        If v_Falsch = 1 Then
            img_Männchen.Picture = LoadPicture("D:\Meine" & _
              "Programme\Galgenmännchen\Bilder\1. Strich HG.jpg")
        End If
 
        If v_Falsch = 2 Then
            img_Männchen.Picture = LoadPicture("D:\Meine" & _
              "Programme\Galgenmännchen\Bilder\2. Strich HG.jpg")
        End If
 
 
''''Das wiederholt sich noch bis 10, passte aber nicht mehr in diesen _
  beitrag...'''''''''
 
        If v_Falsch = 11 Then
            img_Männchen.Picture = LoadPicture("D:\Meine" & _
              "Programme\Galgenmännchen\Bilder\11. Strich HG.jpg")
                MsgBox "Du hast dieses Wort leider nicht erraten. Es lautete" & _
                """" & v_WelchesWort & """."
 
                    Frage = MsgBox("Möchtest du ein neues Spiel starten?", _
                      vbYesNo)
                    If Frage = vbYes Then
                        Load frm_Willkommen
                        frm_Willkommen.Show
                        Unload frm_Galgenmännchen
                        frm_Galgenmännchen.Hide
                    Else
                        MsgBox "Galgenmännchen wird jetzt geschlossen. Auf" & _
                          "Wiedersehen!"
                        Unload frm_Galgenmännchen
                        frm_Galgenmännchen.Hide
                        Unload frm_Willkommen
                        frm_Willkommen.Hide
                        End
                    End If
 
End If
 
End Sub
 
 
    If v_Anzahl = 1 Then
        img_1.Picture = LoadPicture("D:\Meine" & _
          "Programme\Galgenmännchen\Bilder\Buchstabenstrich.jpg")
    End If
    If v_Anzahl = 2 Then
        img_1.Picture = LoadPicture("D:\Meine" & _
          "Programme\Galgenmännchen\Bilder\Buchstabenstrich.jpg")
        img_2.Picture = LoadPicture("D:\Meine" & _
        "Programme\Galgenmännchen\Bilder\Buchstabenstrich.jpg")
    End If
''''Das wiederholt sich noch bis 8, passte aber nicht mehr in diesen _
  beitrag...'''''''''
 
End Sub