Private Sub cmd_controle_Click()
gegeven_antwoord = txt_antwoord
If controle_antwoord = gegeven_antwoord Then
    cmd_kiezen.Visible = True
    cmd_controle.Visible = True
    cmd_next.Visible = False
    lbl_status = " Goed "
End If
lbl_status = " Fout "
cmd_next.Visible = False
cmd_kiezen.Visible = False
End Sub

Private Sub cmd_next_Click()
nummer = Int(12 * Rnd())
lbl_vraag = vraag(nummer)
echt_antwoord = antwoord(nummer)
End Sub

Private Sub Form_Load()
Randomize
cmd_kiezen.Visible = False
cmd_controle.Visible = False
cmd_next.Visible = False
End Sub


Public Function nieuwe_informatie()
Dim vraag(0 To 11), antwoord(0 To 11) As String
vraag(0) = "Dit Is vraag1"                                               ' lijst met vragen
vraag(1) = "Dit is vraag2"
vraag(2) = "Dit is vraag3"
vraag(3) = "Dit is vraag4"
vraag(4) = "Dit is vraag5"
vraag(5) = "Dit is vraag6"
vraag(6) = "Dit is vraag7"
vraag(7) = "dit is vraag8"
vraag(8) = "Dit is vraag9"
vraag(9) = "Dit is vraag10"
vraag(10) = "Dit is vraag11"
vraag(11) = "Dit is vraag12"                                             ' einde lijst met vragen

antwoord(0) = "Dit is antwoord1"                                         ' begin lijst echte antwoord
antwoord(1) = "Dit is antwoord2"
antwoord(2) = "Dit is antwoord3"
antwoord(3) = "Dit is antwoord4"
antwoord(4) = "Dit is antwoord5"
antwoord(5) = "Dit is antwoord6"
antwoord(6) = "Dit is antwoord7"
antwoord(7) = "Dit is antwoord8"
antwoord(8) = "Dit is antwoord9"
antwoord(9) = "Dit is antwoord10"
antwoord(10) = "Dit is antwoord11"
antwoord(11) = "Dit is antwoord12"

nummer = Int(12 * Rnd())
lbl_vraag = vraag(nummer)
controle_antwoord = antwoord(nummer)

End Function

Private Sub start_knop_Click()
nieuwe_informatie
lbl_status.Caption = controle_antwoord
cmd_controle.Visible = True
End Sub