[Microformt]

الاخوة الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل الصورة تتحرك تدريجياً الى منتصف الفورة  من جهة اليمين ؟
وجزكم الله خيراً

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

كود :

Dim Li As Long
Li = (Me.Width - Image1.Width) / 2

For i = Image1.Left To Li Step -1
   Image1.Left = i
   DoEvents
Next i