Private Sub Command1_Click()
If optfr1_1 = True Then
lngAnzRFragen = lngAnzRFragen + 1
Form12.lblerg_01.Caption = "RICHTIG!"
Else
Form12.lblerg_01.Caption = "FALSCH! Die richtige Antwort lautet: 8 Bit!"
End If
Form01.Hide
Form02.Show
End Sub

Private Sub Form_Load()
lblerg_12.Caption = Str((lngAnzRFragen * 100) / 11)
End Sub

Public lngAnzRFragen As Variant