المساهمات : 175 تاريخ التسجيل : 21/11/2007 العمر : 40 الموقع : https://elshahed.ahlamontada.net
موضوع: كلام متحرك فى الtitel bar الأربعاء 28 نوفمبر 2007, 1:59 am
Private Sub Timer1_Timer() On Error Resume Next If Val(Timer1.Tag) < Val(Timer1.Tag) - 1 Then Timer1.Tag = 0 Me.Caption = Right(Text1.Text, Len(Text1.Text) - Val(Timer1.Tag)) Timer1.Tag = Val(Timer1.Tag) + 1
If Me.Caption = "" Then If Val(Timer1.Tag) > Val(Timer1.Tag) - 1 Then Timer1.Tag = 0 Me.Caption = Left(Text1.Text, Len(Text1.Text) - Val(Timer1.Tag)) Timer1.Tag = Val(Timer1.Tag) + 1 End If End Sub
Private Sub Form_Load() Timer1.Enabled = True End Sub
الرئيسية 
أحدث الصور 
التسجيل 
دخول 
موضوع: كلام متحرك فى الtitel bar 
الأربعاء 28 نوفمبر 2007, 1:59 am
