[محمد ايمن]

PHP كود :

تحريك الكلام من عنوان الفورم و المربع
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 


PHP كود :

تحريك الكلمات في العنون و التكست
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