Public Class Form1
    Public Class MyListItem
        Dim m_Text As String
        Dim m_ItemData As String
        Public Sub New(ByVal Text As String, ByVal ItemData As String)
            m_Text = Text
            m_ItemData = ItemData
        End Sub
 
        Property Text() As String
            Get
                Return m_Text
            End Get
            Set(ByVal Value As String)
                m_Text = Value
            End Set
        End Property
 
        Property ItemData() As String
            Get
                Return (m_ItemData)
            End Get
            Set(ByVal Value As String)
                m_ItemData = Value
            End Set
        End Property
 
        Public Overrides Function ToString() As String
            Return m_Text
        End Function
    End Class
    Private Sub Form1_Load(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
        With ComboBox1
            .Items.Add(New MyListItem("Item1", "Info1"))
            .Items.Add(New MyListItem("Item2", "Info2"))
        End With
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim oItem As MyListItem = ComboBox1.SelectedItem
        TextBox2.Text = oItem.ItemData.ToString
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        With ComboBox1
            .Items.Add(New MyListItem(TextBox1.Text, TextBox3.Text))
        End With
    End Sub
End Class