Public Class ComboItem
    Public Sub New(Text as string, Tag as object)
        m_Text = Text ' was er in der combo anzeigen soll
        m_Tag = Tag ' zusätzliche infos
    End Sub
 
    Private m_Tag as object
    Public Readonly Property Tag as object
        Get
            Return Tag
        End Get
    End Property
 
    ' hier ist plazt für zusätzliche eigenschaften
 
    Public OverRides Function ToString() as String
        return m_Text
    End Function
end Class