Fillup!

[billfaceuk]

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


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