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 |