Dim wahl As Integer
        If RadioButton1.Checked Then wahl = 1
        If RadioButton2.Checked Then wahl = 2
        If RadioButton3.Checked Then wahl = 3
        If RadioButton4.Checked Then wahl = 4

        If wahl = richtig Then
            Me.Label4.Text = "Korrekt"
            Me.ProgressBar1.Value = richtigeVersuche + 1
            richtigeVersuche = richtigeVersuche + 1
        Else
            Me.Label4.Text = "Falsch"
        End If

        Me.Label3.Text = richtigeVersuche & "/" & versuche