Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        With lst
            .Items.Add(New ListBoxItem("Gummibärchen", "Schmecken gut"))
            Dim item As ListBoxItem = CType(.Items(0), ListBoxItem)
            MsgBox(item.Tag)
        End With
    End Sub
 
    Public Class ListBoxItem
        Public Name As String
        Public Tag As String
 
        Public Sub New()
        End Sub
 
        Public Sub New(ByVal name As String, ByVal tag As String)
            Me.Name = name
            Me.Tag = tag
        End Sub
 
        Public Overrides Function tostring() As String
            tostring = Name
        End Function
    End Class