home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_07.cab / vb5smpl.cls < prev    next >
Text File  |  1997-10-25  |  718b  |  38 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5.  
  6. Attribute VB_Name = "VB5Simple"
  7. Attribute VB_GlobalNameSpace = False
  8. Attribute VB_Creatable = True
  9. Attribute VB_PredeclaredId = False
  10. Attribute VB_Exposed = True
  11. Option Explicit
  12.  
  13. Dim gsmyProperty As String
  14.  
  15. Private Sub Class_Initialize()
  16.     
  17.     gsmyProperty = "Visual Basic 5 Simple Component"
  18.     
  19. End Sub
  20.  
  21. Public Property Get myProperty() As String
  22.     
  23.     myProperty = gsmyProperty
  24.     
  25. End Property
  26.  
  27. Public Property Let myProperty(ByVal sNewValue As String)
  28.     
  29.     gsmyProperty = sNewValue
  30.     
  31. End Property
  32.  
  33. Public Function myMethod(ByVal myString As String) As String
  34.  
  35.     myMethod = UCase(myString)
  36.     
  37. End Function
  38.