Programming Forums - View Single Post

Rory · Apr 2nd, 2005, 9:54 PM

You need to expose label1 in the usercontrol.
Put this in the UserControl:

Public Property Get MyLabel() As Object
Set MyLabel = UserControl.Label1
End Property
Public Property Set MyLabel(ByRef NewLabel As Label)
Set UserControl.Label1 = NewLabel
End Property

Then you can do

(Toggle Plain Text)

UserControl1.MyLabel.Caption = "hello"

Apr 2nd, 2005, 9:54 PM	#2
Rory Expert Programmer Join Date: Jan 2005 Location: London Posts: 542 Rep Power: 4	You need to expose label1 in the usercontrol. Put this in the UserControl: (Toggle Plain Text) Public Property Get MyLabel() As Object Set MyLabel = UserControl.Label1 End Property Public Property Set MyLabel(ByRef NewLabel As Label) Set UserControl.Label1 = NewLabel End Property Public Property Get MyLabel() As Object Set MyLabel = UserControl.Label1 End Property Public Property Set MyLabel(ByRef NewLabel As Label) Set UserControl.Label1 = NewLabel End Property Then you can do (Toggle Plain Text) UserControl1.MyLabel.Caption = "hello" UserControl1.MyLabel.Caption = "hello"