Flexible ComboBox and EditingControl

Imports System.Drawing
Imports System.ComponentModel
Imports System.Windows.Forms.Design
Imports System.Drawing.Design
Imports System.Windows.Forms

<ToolboxItem(True), DefaultProperty("DropDownButton")> _
Public Class DropDownCombo
    Inherits TextBox
    Implements IHasDropDownButton

    Private _DropDownButton As DropDownButton

    <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
    Public ReadOnly Property DropDownButton As DropDownButton Implements IHasDropDownButton.DropDownButton
        Get
            Return _DropDownButton
        End Get
    End Property

    Public Sub New()
        Try
            _DropDownButton = New DropDownButton
            Me.Controls.Add(_DropDownButton)
            DropDownButton.Dock = DockStyle.Right
            DropDownButton.DisplayArea = Me
        Catch ex As Exception
            ErrMsg(ex)
        End Try
    End Sub

End Class