كود يعطي شكل لذيذ لفتح الفورم غير السابق من تصميمي

Dim x As Single
Sub Explode(form1 As Form)
form1.Width = 0
form1.Height = 0
form1.Show
For x = 0 To 3500 Step 2
form1.Width = x
form1.Height = x
With form1
.Move x, x, x, x

End With
Next x
End Sub

Private Sub Form_Load()
Explode Me
End Sub

كود فى غاية الجمال تسلم ايدك يا بش مهندس محمد

عضو نشط عدد الرسائل : 70 تاريخ التسجيل : 28/01/2008

تسلم ايدك ياباشمهندس محمد

الكود فى غاية الروعه والجمال

عقبال المزيد بس ان شاء الله

سوف اصممه على مشروع

ههههههههههههههههههههههههه

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