Fillup!

Look at this ocde i made about by fiddling with the explode code. Anywho here it is:

Code:

---

Public Sub Fillup(frm As Form)
    frm.Height = 9200
    frm.Width = 9200
    frm.Show
    For x = 0 To 99999 Step 30
        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()
Call Me.Fillup(Me)
End Sub

---