لفتح البرنامج بطريقة جميلة

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