home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD1773.psc / cForms.cls next >
Encoding:
Visual Basic class definition  |  1999-11-05  |  655 b   |  28 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "cForms"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. Option Explicit
  15.  
  16. Public Property Get CreateForm1() As Object
  17.     Set CreateForm1 = New Form1
  18. End Property
  19.  
  20. Public Property Get CreateForm2() As Object
  21.     Set CreateForm2 = New Form2
  22. End Property
  23.  
  24. Private Sub Class_Initialize()
  25.     Unload Form1
  26.     Unload Form2
  27. End Sub
  28.