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

هذا كود فتح واغلاق الفورم بطريقة تدريجية جميلة جداً


1-اضافة عدد 2 تايمر الى الفورم

فى كل تايمر نكتب الاكواد التالية

تايمر 1 عند الفتح

Private Sub Timer1_Timer()
Me.Width = Me.Width + 300
If Me.Width > 4860 Then
Timer1.Enabled = False
End If

End Sub


2-تايمر 2 عند الاغلاق
Private Sub Timer2_Timer()
Me.Width = Me.Width - 300
If Me.Width < 420 Then
Timer1.Enabled = False
Unload Me
End If

End Sub


ولا ننسي ان نضع فى الفورم لود
هذا الكود

Timer1.Enabled = True

وان نضع فى زر الخروج الكود

Timer2.Enabled = True

وان يكون كلا التايمرين False
وانترفال اكثر من صفر طبعا

اتمنى ان يكون الكود مفيد

جزاك الله كل خير