تلاشي النوافذ

ضع Command على Form

ثم قم نبسخ الكود التالي

ضمن قسم التصريحات العامة General

Sub SlideWindow(frmSlide As Form, iSpeed As Integer)



While frmSlide.Left + frmSlide.Width < Screen.Width

  DoEvents

  frmSlide.Left = frmSlide.Left + iSpeed

Wend



While frmSlide.Top - frmSlide.Height < Screen.Height

  DoEvents

  frmSlide.Top = frmSlide.Top + iSpeed

Wend



Unload frmSlide



End Sub

ثم ضع هذا الكود ضمن حدث Command1_Click

Private Sub Command1_Click()



  Call SlideWindow(Form1, 100)



End Sub

تحياتي

الف شكر

:D

احنا بالخدمة باي وقت

:D