Programming Forums - View Single Post

Rory · Apr 5th, 2005, 2:26 PM

This code seems to work for me...

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

That kind of error doesn't seem to be possible anywhere in this code: are you sure it's an error with that particular bit?

Apr 5th, 2005, 2:26 PM	#6
Rory Expert Programmer Join Date: Jan 2005 Location: London Posts: 542 Rep Power: 4	This code seems to work for me... (Toggle Plain Text) Public Property Get MyLabel() As Label 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 Label Set MyLabel = UserControl.Label1 End Property Public Property Set MyLabel(ByRef NewLabel As Label) Set UserControl.Label1 = NewLabel End Property That kind of error doesn't seem to be possible anywhere in this code: are you sure it's an error with that particular bit?