Visual Basic

Public Class BindableToolStripProgressBar
    Inherits ToolStripProgressBar
    Implements IBindableComponent


#Region "IBindableComponent Members"
    Private _bindingContext As BindingContext
    Private _dataBindings As ControlBindingsCollection

    Public Property BindingContext() As System.Windows.Forms.BindingContext Implements System.Windows.Forms.IBindableComponent.BindingContext
        Get
            If _bindingContext Is Nothing Then
                _bindingContext = New BindingContext
            End If
            Return _bindingContext
        End Get
        Set(ByVal value As System.Windows.Forms.BindingContext)
            _bindingContext = value
        End Set
    End Property

    Public ReadOnly Property DataBindings() As System.Windows.Forms.ControlBindingsCollection Implements System.Windows.Forms.IBindableComponent.DataBindings
        Get
            If _dataBindings Is Nothing Then
                _dataBindings = New ControlBindingsCollection(Me)
            End If
            Return _dataBindings
        End Get
    End Property
#End Region
End Class