فتح الفورم بطريقة رائعة

فتح الفورم بشكل جميل

فى الاجراء العام

general

نكتب الكود التالى

Sub Explode(form1 As Form)
form1.Width = 0
form1.Height = 0
form1.Show
For x = 0 To 5000 Step 1
form1.Width = x
form1.Height = x
With form1
.Left = (Screen.Width - .Width) / 2
.Top = (Screen.Height - .Height) / 2
End With
Next
End Sub

ثم فى ناقذة الفورم فى الإجراء

load

نكتب الكود التالى

Private Sub Form_Load()
Explode Me
End Sub

» مجموعة كتب الكترونية رائعة جدا
» الاصدار الثالث رائعة
» برامج صوتية رائعة
» ايقاعات ومجموعة أصوات رائعة هدية