Private Sub Frage_Stellen() 
  Randomize -Timer
  Do
    r = Int(Rnd * i) + 1 ' zufällige Ausgabe der Fragen (random) 
  Loop Until Len(Frage(r)) > 0
  Fragestellung.Caption = Frage(r) ' Fragestellung = Label 
  Frage(r) = ""
  For n = 1 To 4 
    ' Antwortmöglichkeit(en) = Label 
    Antwortmöglichkeit(n).Caption = Antwort(r, n)
  Next n
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de