Basic Stuff..

For i As Integer = 0 To ListBox1.SelectedItems.Count - 1

MsgBox(ListBox1.SelectedItems.Item(i))

Next i

VB6 METHOD..FYI…

For i = 0 To File1.ListCount - 1
    If File1.Selected(i) = True Then
LoadIndividual (File1.List(i))
    End If
  Next i

'Loop through the listbox and if the item in the listbox

'matches the ExamToFind variable, then select it

For p = 0 To lstExams.Items.Count - 1

If lstExams.Items(p) = ExamToFind Then

lstExams.SelectedIndex = p

End If

Next

ListBox1.Items.Add("Steve")

ListBox1.Items.Add("Rebee")

ListBox1.Items.Add("Lee")

ListBox1.SetSelected(1, True)

Dim i As Integer

For i = 0 To ListBox1.Items.Count - 1

If ListBox1.SelectedIndex = i Then

MessageBox.Show(ListBox1.SelectedItem.ToString)

End If

Next i

‘Remove an item from a ListBox

Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick

ListBox1.Items.Remove(ListBox1.SelectedItem)

ListBox1.Refresh()

End Sub

Straight From Microsoft Help…

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' Create an instance of the ListBox.

Dim listBox1 As New ListBox()

' Set the size and location of the ListBox.

listBox1.Size = New System.Drawing.Size(300, 300)

listBox1.Location = New System.Drawing.Point(10, 10)

' Add the ListBox to the form.

Me.Controls.Add(listBox1)

' Set the ListBox to display items in multiple columns.

listBox1.MultiColumn = True

' Set the selection mode to multiple and extended.

listBox1.SelectionMode = SelectionMode.MultiExtended

' Shutdown the painting of the ListBox as items are added.

listBox1.BeginUpdate()

' Loop through and add 50 items to the ListBox.

Dim x As Integer

For x = 1 To 50

listBox1.Items.Add("Item " & x.ToString())

Next x

' Allow the ListBox to repaint and display the new items.

listBox1.EndUpdate()

' Select three items from the ListBox.

listBox1.SetSelected(1, True)

listBox1.SetSelected(3, True)

listBox1.SetSelected(5, True)

' Display the second selected item in the ListBox to the console.

System.Diagnostics.Debug.WriteLine(listBox1.SelectedItems(1).ToString())

' Display the index of the first selected item in the ListBox.

System.Diagnostics.Debug.WriteLine(listBox1.SelectedIndices(0).ToString())

End Sub

Combine 2 Data Table Fields into 1, then bind that 1 field to a ListBox…

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'Create A Table *********************************************

Dim dt As New DataTable()

Dim dr As DataRow

dt.Columns.Add(New DataColumn("vAge", GetType(Int32)))

dt.Columns.Add(New DataColumn("LastName", GetType(String)))

dt.Columns.Add(New DataColumn("FirstName", GetType(String)))

Dim i As Integer

For i = 0 To 8

dr = dt.NewRow()

dr("vAge") = i

dr("LastName") = " My Last " & i.ToString()

dr("FirstName") = " My First " & i.ToString

dt.Rows.Add(dr)

Next i

'*************************************************************

'Add a new column to the table. The column is FullName,

'the combination of the Last & First name fields

Dim DynColumn As New DataColumn()

With DynColumn

.ColumnName = "FullName"

.DataType = System.Type.GetType("System.String")

.Expression = "LastName+' '+FirstName"

End With

'objDs.Tables(0).Columns.Add(DynColumn)

dt.Columns.Add(DynColumn)

'*******************************************************

ListBox1.DataSource = dt

ListBox1.DisplayMember = "FullName"

End Sub