الاخوة الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل الصورة تتحرك تدريجياً الى منتصف الفورة من جهة اليمين ؟
وجزكم الله خيراً
وعليكم السلام ورحمة الله وبركاته
كود :
Dim Li As Long
Li = (Me.Width - Image1.Width) / 2
For i = Image1.Left To Li Step -1
Image1.Left = i
DoEvents
Next i