Imports System.Windows.Forms
Imports System.Drawing
Imports System.Collections
 
    Public Class Fill_lbox
 
        Private myShortName As String
        Private myLongName As String
 
        Public Sub New(ByVal strlongName As String, ByVal strShortName As _
          String)
            MyBase.New()
            Me.myShortName = strShortName
            Me.myLongName = strlongName
        End Sub
 
        Public ReadOnly Property ShortName() As String
            Get
                Return myShortName
            End Get
        End Property
 
        Public ReadOnly Property LongName() As String
            Get
                Return myLongName
            End Get
        End Property
 
        Public Overrides Function ToString() As String
            Return Me.ShortName & " - " & Me.LongName
        End Function
    End Class
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        If ListBox1.SelectedIndex <> -1 Then
            TextBox1.Text = ListBox1.SelectedValue
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ' Populates the list box using DataSource. 
        ' DisplayMember is used to display just the long name of each state.
        Dim lbox_cont As New ArrayList
        lbox_cont.Add(New Fill_lbox("Washington", "WA"))
        lbox_cont.Add(New Fill_lbox("West Virginia", "WV"))
        lbox_cont.Add(New Fill_lbox("Wisconsin", "WI"))
        lbox_cont.Add(New Fill_lbox("Wyoming", "WY"))
 
        ListBox1.DataSource = lbox_cont
        ListBox1.DisplayMember = "LongName"
        ListBox1.ValueMember = "ShortName"
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        '  Dim i As Integer
        '   For i = 0 To ListBox1.Items.Count - 1
        '       If ListBox1.GetSelected(i) Then
        '           MsgBox(ListBox1.SelectedValue)
        '       End If
        '   Next
        For i As Integer = 0 To ListBox1.SelectedItems.Count - 1
            MsgBox(ListBox1.SelectedValue)
        Next
    End Sub
End Class