Tvorba "duhového" textu

Sub Form_Paint()

   Dim I As Integer, X As Integer, Y As Integer
   Dim C As String
   Cls
   For I = 0 To 91
      X = CurrentX
      Y = CurrentY
      C = Chr(I)
      'Line -(X + TextWidth(C), Y = TextHeight(C)), _
      QBColor(Rnd * 16), BF
      CurrentX = X
      CurrentY = Y
      ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
      Print "The Bozena Daemonic Software Ltd."
   Next

End Sub

Zpět