Option Explicit

Dim Zeichenpos As Integer
Dim sText As String

Dim r1 As Integer, g1 As Integer, b1 As Integer
Dim r2 As Integer, g2 As Integer, b2 As Integer
Dim r3 As Integer, g3 As Integer, b3 As Integer

Private Sub Form_load()
  Zeichenpos = 1
  sText = "Dies ist ein Test-Text. " & vbCrLf & _
          "Er sollte jetzt langsam erscheinen."

  r1 = 255: g1 = 255: b1 = 255
  r2 = 0: g2 = 0: b2 = 0
  r3 = (r1 + r2) / 2: g3 = (g1 + g2) / 2: b3 = (b1 + b2) / 2
  
  Me.BackColor = RGB(r1, g1, b1)
  Me.ForeColor = RGB(r2, g2, b2)
End Sub

Private Sub timAnimation_Timer()
  If Zeichenpos < Len(sText) Then
    Zeichenpos = Zeichenpos + 1
    Me.CurrentX = 0: Me.CurrentY = 0
    Me.ForeColor = RGB(r1, g1, b1)
    Print Left(sText, Zeichenpos + 2)

    Me.CurrentX = 0: Me.CurrentY = 0
    Me.ForeColor = RGB(r3, g3, b3)
    Print Left(sText, Zeichenpos + 1)

    Me.CurrentX = 0: Me.CurrentY = 0
    Me.ForeColor = RGB(r2, g2, b2)
    Print Left(sText, Zeichenpos)
  End If
End Sub