13-04-23, 04:57 PM
وعليكم السلام ورحمة الله وبركاته
كود :
Dim Li As Long
Li = (Me.Width - Image1.Width) / 2
For i = Image1.Left To Li Step -1
Image1.Left = i
DoEvents
Next iقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
