هذا كود ( فيجول بيسك )

هذا الكود يعمل على فتح الفورم بحركة جميلة وكأنه يظهر من وسط الشاشة انفجار
Sub Explode(frm As Form)
frm.Width = 0
frm.Height = 0
frm.Show
For x = 0 To 5000 Step 400
frm.Width = x
frm.Height = x
With frm
.Left = (Screen.Width - .Width) / 2
.Top = (Screen.Height - .Height) / 2
End With
Next x
End Sub
Private Sub Form_Load()
Explode Me
End Sub
ملاحظة يوضع الكود في قسم التصريحات العامة General

يسلمو كوران منور المنتدى

شكرا

اريد شرح مفصل عن فيجوال بيسك مع الصوت والصورة اذا امكن
ارجو الرد بسرعة وشكرا

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

احلا عيد للعراق العظيم سلامي لجميع الاعضاء