Label2.Caption =frmMain.Caption

Hiermit bestimmen wir das der Text der in den Eigenschaften(Caption) der Form steht, auch in unser Label stehen soll.

oder:

Label2.Tag = "Starcraft 2 v1.0.1.16195 +3 Promo trn by fr33k"
Label2.Caption = Label2.Tag

Hier trägt man den Text direkt ein, also muss in der Caption von der Form nichts mehr stehen.
Wie man es macht ist geschmacksache

und in den Timer kommt bei beiden möglichkeiten:

Private Sub laufschrift_Timer()

  Dim var As String
  Dim sText As String
 
  var = Left(Label2.Caption, 1)
  sText = Mid(Label2.Caption, 2, Len(Label2.Caption)) & var
  Label2.Caption = sText
  
End Sub

Ist selbsterklärend denke ich
Wichtig ist nur noch das der Timer Interval zuständig für die schnelligkeit der Laufschrift ist, ich habe bei meinen Trainern den Wert 100 genommen.

Das war der ganze zauber schon, also alles gar nicht so schwer wie man vielleicht denken mag.

gruss fr33k