CoolOpen

Dim frmHeight As Integer
Dim frmWidth As Integer

Private Sub Form_Load()

Timer1.Interval = 1
frmHeight = Form1.Height
frmWidth = Form1.Width
Form1.Height = 100
Form1.Width = 100

End Sub

Private Sub Timer1_Timer()

While Form1.Height < frmHeight
Form1.Height = Form1.Height + 8
Wend

While Form1.Width < frmWidth
Form1.Width = Form1.Width + 8
Wend

Timer1.Enabled = False

End Sub