List box program

[Justin]

Public Class Form1

Dim sngItm As String
Dim mulItm As String

Dim i As Integer

Dim sngItmArray(3) As String

Private Sub btnSingle_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnSingle.Click

sngItm = lstBox1.SelectedItem

sngItmArray(i) = sngItm
MsgBox(sngItmArray(i))
i = i + 1
'For i = 0 To sngItmArray.Length

' If sngItmArray(i) = sngItm Then

' End If

'Next

lstBox2.Items.Add(sngItm)

End Sub

Private Sub btnMultiple_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles btnMultiple.Click

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

lstBox2.Items.Add(lstBox1.SelectedItems.Item(i).ToString())
Next

End Sub
End Class

'http://www.learnvisualstudio.net/content/series/
beginning_vbdotnet.aspx for more