كود تحريك الكلام في عنوان الفورم ومربع النص

ضع الكود في الفورم

Private strText As String

Private Sub Form_Load()

Timer1.Interval = 75

strText = "Guten Tag! Wie ght's Ihnen? Ich hoffe Ihnen alles Gutes!"

strText = Space(50) & strText

End Sub

Private Sub Timer1_Timer()

strText = Mid(strText, 2) & Left(strText, 1)

Text1.Text = strText

Me.Caption = strText

End Sub