حاولت كثيراً تطبيق كود تحريك عنوان النموذج والذي سبق ذكره في هذا المنتدى ولكن لم أستطع ولاأدري أين الخطأ .
الكود الذي استخدمته هو
Private Sub Form_Load()
strText = "مع تحيات سعودي 31"
strText = Space(110) & strText
End Sub
Private Sub Form_Timer()
strText = Mid(strText, 2) & Left(strText, 1)
Me.Caption = strText
End Sub
ومرفق المثال
