Private saTexte() as string
 
Private Sub InitArray()
  redim saTexte(9)
  saTexte(0) = "Wenn etwas schiefgehen kann, dann wird es auch schiefgehen."
  saTexte(1) = "Alles dauert länger als Du denkst."
  saTexte(2) = "Die andere Schlange kommt stets schneller voran."
  saTexte(3) = "Jedes fertige Programm, das läuft, ist veraltet."
  saTexte(4) = "Maschinen, die versagt haben, funktionieren einwandfrei, wenn" & _
    "der Kundendienst kommt."
  saTexte(5) = "Irren ist menschlich - um die Lage wirklich ekelhaft zu machen," & _
  "benötigt man schon einen Computer."
  saTexte(6) = "Wenn alles gut zu gehen scheint, hast Du sicher etwas" & _
  "vergessen."
  saTexte(7) = "Die Natur ergreift immer die Partei des versteckten Fehlers."
  saTexte(8) = "Egal, was Du suchst, Du findest immer an dem Platz, an dem Du" & _
    "zuletzt nachschaust."
  saTexte(9) = "NEVER TOUCH A RUNNING SYSTEM"
and sub
 
Private Sub Form_Load()
  Dim i     As Long
  lblRandom(0).Visible = False
  ' außer dem Label laden wir uns 5 weitere Label
  For i = 1 To 5
    Load lblRandom(i)
    lblRandom(i).Caption = "Random Label " & i
    ' und setzten sie schön untereinander
    lblRandom(i).Top = lblRandom(i - 1).Top + lblRandom(i - 1).Height + 30
  Next i
  'nun sind die label da
  ' TextArray laden 
  Call InitArray
End Sub
Private Sub cmdShow_Click()
  Dim lRandom As Long
  ' alle label unsichtbar machen
  For lRandom = 0 To lblRandom.Count - 1
    lblRandom(lRandom).Visible = False
  Next lRandom
  ' eine Zufallszahl von 0-5
  lRandom = (5 * Rnd)
  lblRandom(lRandom).Visible = True
  ' Und nun noch einen zufälligen Text dazu
  lRText = (9 * Rnd)
  lblrandom(lRandom).Caption = saTexte(lRText)
End Sub