Private sub form_load()
timer1.interval=50
timer1.enabled=false
end sub
Private Sub Timer1_Timer()
Form1.Width = Form1.Width - 30
Form1.Height = Form1.Height - 30
Form1.Top = Form1.Top + 50
Form1.Left = Form1.Left + 5
End Sub
Private Sub Form_Unload(Cancel As Integer)
timer1.enabled=true
End Sub