With lstRunTimeMode
      .Items.Clear()
      .Items.Add(New clsMBComboBoxItem("AUS", 1)
      .Items.Add(New clsMBComboBoxItem("Automatik", 2)
    End With

x = CType(lstRunTimeMode.SelectedItem, clsMBComboBoxItem).iTag

Public Class clsMBComboBoxItem
  Private PsText As String = ""
  Private PiTag As Int32
  Private PsTag As String
 
  Public Sub New(ByVal AText As String, ByVal ATag As Int32)
    Me.PsText = AText
    Me.PiTag = ATag
  End Sub
 
  Public Sub New(ByVal AText As String, ByVal ATag As String)
    Me.PsText = AText
    Me.PsTag = ATag
  End Sub
 
  Public Property Text() As String
    Get
      Return PsText
    End Get
    Set(ByVal value As String)
      PsText = value
    End Set
  End Property
 
  Public Property iTag() As Int32
    Get
      Return PiTag
    End Get
    Set(ByVal value As Int32)
      PiTag = value
      PsTag = value.ToString
    End Set
  End Property
 
  Public Property sTag() As String
    Get
      Return PsTag
    End Get
    Set(ByVal value As String)
      PsTag = value
    End Set
  End Property
 
  Public Overrides Function ToString() As String
    Return Me.PsText
  End Function
End Class