home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch18code / class1.cls < prev    next >
Encoding:
Text File  |  1994-10-14  |  366 b   |  22 lines
  1. Version 1.0 Class
  2. Attribute VB_Name = "Class1"
  3. Attribute VB_Creatable = True
  4. Attribute VB_Exposed = False
  5. Option Explicit
  6. Dim mForm As New Form1
  7. Dim mData
  8. Public InstanceName
  9.  
  10. Sub AddText(Text)
  11.     mForm.Print Text
  12. End Sub
  13.  
  14. Property Get data()
  15.     data = mData
  16. End Property
  17.  
  18. Property Let data(inData As Variant)
  19.     mData = inData
  20. End Property
  21.  
  22.