Private Sub Form_Activate()
 
Dim Ausgabe$, i%, Zgr%, Zeichen$
 
Ausgabe = "Dies ist ein Regenbogentext."
Me.BackColor = vbBlack
Me.ScaleMode = vbPixels
Me.AutoRedraw = True
Me.FontSize = 14
Me.CurrentX = 50
Me.CurrentY = 100
Zgr = 0
For i = 1 To Len(Ausgabe)
  Zeichen = Mid(Ausgabe, i, 1)
  If Zeichen <> " " Then
    Me.ForeColor = Choose(Zgr + 1, vbRed, RGB(255, 128, 0), vbYellow, vbGreen, _
      vbBlue, vbMagenta)
    Zgr = (Zgr + 1) Mod 6
  End If
  Me.Print Zeichen;
Next i
 
End Sub