كود : ظهور جميل للفورم

Sub Explode(ByVal 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.FromControl) / 2
' .Top = (Screen.Height - .Height) / 2
End With
Next

End Sub