|
Public Enum capBackStyle
Transparent = 0 Opaque = 1 End Enum '_________________________________________________________ Public Property Let BackStyle(ByVal mData As capBackStyle) mBackStyle = mData UserControl.BackStyle = mData If mData = Opaque Then lblLabel.BackColor = UserControl.BackColor Else lblLabel.BackColor = Ambient.BackColor ' This sets the back 'color To the same as the container. End If PropertyChanged "BackStyle" End Property |