اغلاق الفورم بشكل انزلاق إلي اليمين ثم لأسفل

كود غلق الفورم بشكل انزلاق إلي اليمين ثم لأسفل

الكود:

Sub SlideWindow(frmSlide As Form, iSpeed As Integer)
While frmSlide.Left + frmSlide.Width <>
DoEvents
frmSlide.Left = frmSlide.Left + iSpeed
Wend
While frmSlide.Top - frmSlide.Height <>
DoEvents
frmSlide.Top = frmSlide.Top + iSpeed
Wend
Unload frmSlide
End Sub


Private Sub Form_Unload(Cancel As Integer)
Call SlideWindow(Form1, 50)
End Sub

لتحميل السورس من هــنـــا

---

تصنيف :