Private myBackColor As System.Drawing.Color = Color.Transparent
    Public Overrides Property BackColor() As System.Drawing.Color
        Get
            Return MyBase.BackColor
        End Get
        Set(ByVal value As System.Drawing.Color)
            MyBase.BackColor = value
            myBackColor = value
            myLabel.BackColor = myBackColor
        End Set
    End Property
 
    Public Overridable Property DataSource() As Object
        Get
            Return myComboBox.DataSource
        End Get
        Set(ByVal value As Object)
            myComboBox.DataSource = value
            myLabel.Text = ""
        End Set
    End Property
 
    Public Overridable Property ValueMember() As String
        Get
            Return myComboBox.ValueMember
        End Get
        Set(ByVal value As String)
            myComboBox.ValueMember = value
        End Set
    End Property
 
    Public Overridable Property DisplayMember() As String
        Get
            Return myComboBox.DisplayMember
        End Get
        Set(ByVal value As String)
            myComboBox.DisplayMember = value
        End Set
    End Property
 
    Public Overridable Property SelectedValue() As Object
        Get
            Return myComboBox.SelectedValue
        End Get
        Set(ByVal value As Object)
            If IsNothing(value) = False Then
                myComboBox.SelectedValue = value
                If value < 1 Then
                    myLabel.Text = myNoSelection
                Else
                    If IsNothing(myComboBox.SelectedValue) = False Then
                        myLabel.Text = myComboBox.SelectedItem( _
                          myComboBox.DisplayMember)
                    Else
                    End If
                End If
            Else
                myLabel.Text = myNoSelection
            End If
        End Set
    End Property
 
   Public ReadOnly Property Items() As ComboBox.ObjectCollection
        Get
            Return myComboBox.Items
        End Get
    End Property
 
    Private myFont As System.Drawing.Font '= New Font("Verdana", 7, _
      FontStyle.Regular)
    Public Overrides Property font() As System.Drawing.Font
        Get
            Return myFont
        End Get
        Set(ByVal value As System.Drawing.Font)
            myFont = value
            myLabel.Font = myFont
            myComboBox.Font = myFont
            MyBase.Height = myComboBox.Height - 6
            myLabel.Height = MyBase.Height
        End Set
    End Property
 
    Private Sub myLabel_TextChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles myLabel.TextChanged
        setLableBackColor()
    End Sub
 
    Private Sub setLableBackColor()
        If isMandatory = True And myLabel.Text = myNoSelection Then
            myHasError = 1
        Else
            myHasError = 0
        End If
        If myHasError > 0 Then
            myLabel.BackColor = myErrorColor
        Else
            If isEditMode = True Then
                myLabel.BackColor = myEditBackColor
            Else
                myLabel.BackColor = myBackColor
            End If
        End If
    End Sub
 
    Private myNoSelection As String = "- no selection -"
    Public Property NoSelection() As String
        Get
            Return myNoSelection
        End Get
        Set(ByVal value As String)
            myNoSelection = value
            If myComboBox.SelectedValue = Nothing Then
                myLabel.Text = myNoSelection
            End If
        End Set
    End Property
End Class