لفتح البرنامج بطريقة جميلة - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90) +--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111) +---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116) +---- الموضوع : لفتح البرنامج بطريقة جميلة (/showthread.php?tid=6037)

لفتح البرنامج بطريقة جميلة - RaggiTech - 17-10-12 كاتب الموضوع : memasoft لفتح البرنامج بطريقة جميلة 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 Private Sub Form_Load() Explode Me End Sub