home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP05 / 309X0508.TXT < prev    next >
Encoding:
Text File  |  1998-05-27  |  430 b   |  19 lines
  1.  
  2. Public Property Get Caption() As String
  3.  
  4.      ' The Caption property comes directly from
  5.      ' lblCaption's Caption property.
  6.      Caption = lblCaption.Caption
  7.  
  8. End Property
  9.  
  10.  
  11. Public Property Let Caption(ByVal NewValue As String)
  12.  
  13.      ' Caption's new value is passed directly to
  14.      ' lblCaption's Caption property.
  15.      lblCaption.Caption = NewValue
  16.      UserControl.PropertyChanged "Caption"
  17.  
  18. End Property
  19.