Private Function new_info()
Dim vraag(0 To 11), antwoord(0 To 11) As String
vraag(0) = "Dit Is vraag1"                                               
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"                                             

antwoord(0) = "Dit is antwoord1"                                         
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"

number = Int(12 * Rnd())
lbl_question = vraag(nummer)
check_answer = antwoord(nummer)
lbl_status = check_question
end sub



Private Sub start_knop_Click()
nieuwe_informatie
End Sub