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

بسم الله الرحمن الرحيم


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

الادوات المطلوبه :   TEXTBOX   + TIMER

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 75
        TextBox1.Text = "Guten Tag! Wie ght's Ihnen? Ich hoffe Ihnen alles Gutes!"
        TextBox1.Text = Space(50) & TextBox1.Text
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TextBox1.Text = Mid(TextBox1.Text, 2)
        TextBox1.Text = TextBox1.Text
        Me.Text = TextBox1.Text
    End Sub
End Class

اتمنا لكم التوفيق :