Schreibmaschinen-Effekt mit VB 6.0

Ich habe mal wieder mit Visual Basic rumgebastelt und versucht so ein Schreibmaschinen-Effekt mit dieser Programmiersprache zu erstellen.

Ich habe es geschafft. Hier der Code:

Option Explicit

Private Sub Form_Load()

Timer1.Interval = 100

End Sub

Private Sub Timer1_Timer()

If Text1.MaxLength <> 231 Then
Text1.MaxLength = Text1.MaxLength + 1
Text1.Text = Für alle unter Euch, die ab und an einen schlechten Tag haben, und ihre Laune an jemandem auslassen müssen!!! Laßt Eure Laune nicht an jemandem aus, den Ihr kennt, sondern an jemandem, den Ihr NICHT kennt!!!
Else
Timer1 = False
End If

End Sub


Ich hätte nicht gedacht das es so einfach geht.

Habt ihr auch so ähnliche Effekte für Texte?
Wenn ja postet sie hier bitte rein! ;D

Vielen Dank schon mal

hallo,

kann man win 7 unter win xp auf einer vm installieren?

ja natürlich.