home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / unload1a / f1.frm next >
Encoding:
Text File  |  1999-10-21  |  686 b   |  31 lines
  1. VERSION 5.00
  2. Begin VB.Form f1 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   90
  6.    ClientLeft      =   0
  7.    ClientTop       =   0
  8.    ClientWidth     =   90
  9.    LinkTopic       =   "Form2"
  10.    ScaleHeight     =   90
  11.    ScaleWidth      =   90
  12.    ShowInTaskbar   =   0   'False
  13.    StartUpPosition =   3  'Windows Default
  14. End
  15. Attribute VB_Name = "f1"
  16. Attribute VB_GlobalNameSpace = False
  17. Attribute VB_Creatable = False
  18. Attribute VB_PredeclaredId = True
  19. Attribute VB_Exposed = False
  20.  
  21. Private Sub Form_Unload(Cancel As Integer)
  22. X = 1000
  23. Y = 1000
  24. Do Until X <= 0
  25. X = X - 1
  26. Y = Y - 1
  27. f1.Height = Y
  28. f1.Width = X
  29. Loop
  30. End Sub
  31.