home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Megafan_Sc2113845252008.psc / ClsMotScribble.cls < prev    next >
Text File  |  2008-04-06  |  932b  |  58 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 = "ClsMotScribble"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Option Explicit
  15.  
  16.  
  17. Private mMot As String
  18. Private mValLettres As String
  19. Private mPos As String
  20. Private mPts As Integer
  21.  
  22. Property Let Mot(StrMot As String)
  23.  
  24.     mMot = StrMot
  25.  
  26. End Property
  27.  
  28. Property Get Mot() As String
  29.  
  30.     Mot = mMot
  31.  
  32. End Property
  33.  
  34. Property Let Pts(IntPts As Integer)
  35.  
  36.     mPts = IntPts
  37.  
  38. End Property
  39.  
  40. Property Get Pts() As Integer
  41.  
  42.     Pts = mPts
  43.  
  44. End Property
  45.  
  46. Property Let Pos(StrPos As String)
  47.  
  48.     mPos = StrPos
  49.  
  50. End Property
  51.  
  52. Property Get Pos() As String
  53.  
  54.     Pos = mPos
  55.  
  56. End Property
  57.  
  58.