Private Sub Form_Activate()
  Picture1.AutoRedraw = True
  Picture1.ScaleMode = vbPixels
  Picture1.Width = 4455
  Picture1.Height = 495
  Picture1.Left = 0
  Picture1.Top = 0
  Picture1.FontSize = 14
  mystring = "Visual Basic www.vbarchiv.net"
  schritt = Picture1.TextWidth(mystring) / Len(mystring) * 2
  For i = 1 To Len(mystring)
    DoEvents
    zeichen = Mid(mystring, i, 1)
    If zeichen <> " " Then
      For ii = Picture1.Width / Screen.TwipsPerPixelX To x Step -schritt
        If ii - schritt < x Then ii = x
        Picture1.ForeColor = vbBlack
        Picture1.CurrentX = ii
        Picture1.CurrentY = 0
        Picture1.Print zeichen
        t = Timer
        While Timer < t + 0.01
          DoEvents
        Wend
        If ii = x Then Exit For
        Picture1.ForeColor = Picture1.BackColor
        Picture1.CurrentX = ii
        Picture1.CurrentY = 0
        Picture1.Print zeichen
      Next
    End If
    x = x + Picture1.TextWidth(zeichen)
  Next
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...