Public Class clsBindableToolStripLabel
	Inherits ToolStripLabel
	Implements IBindableComponent
 
	Private m_bindingContext As BindingContext
	Private m_dataBindings As ControlBindingsCollection
 
	Public Property BindingContext() As BindingContext
		Get
			If m_bindingContext Is Nothing Then
				m_bindingContext = New BindingContext()
			End If
			Return m_bindingContext
		End Get
		Set(ByVal value As BindingContext)
			m_bindingContext = value
		End Set
	End Property
 
	Public ReadOnly Property DataBindings() As ControlBindingsCollection
		Get
			If m_dataBindings Is Nothing Then
				m_dataBindings = New ControlBindingsCollection(Me)
			End If
			Return m_dataBindings
		End Get
	End Property
 
End Class

Salzburger