คำสั่งเกี่ยวกับ Listbox ที่ควรรู้
1. listbox1.Items.Add("ทดสอบ")
2. listbox1.Items.Remove("ทดสอบ")
3. listbox1.Count
4. listbox1.Left = 10
5. msgbox(listbox1.Items(0))
6. msgbox(listbox1.Items(sender.SelectedIndex.toString))
7. listbox2.Items.Add(listbox1.Items(sender.SelectedIndex.toString))
8. AddHandler listbox1.Click, AddressOf lb1EventHandler
9. Public Sub listbox1EventHandler(ByVal sender As Object, ByVal e As System.EventArgs)
   
   msgbox(sender.SelectedIndex.ToString)

Public Class Form1
    Dim instance As New Form
    Dim lb1 As New ListBox
    Dim lb2 As New ListBox
    Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        lb1.Items.Add("ทดสอบ")
        lb1.Items.Add("ไทยออล")
        lb1.Left = 10 ' pixels
        AddHandler lb1.Click, AddressOf lb1EventHandler
        instance.Controls.Add(lb1)
        ' ===
        lb2.Items.Add("โยนก")
        lb2.Items.Add("ไทยเอบีซี")
        lb2.Left = 150 ' pixels
        AddHandler lb2.Click, AddressOf lb2EventHandler
        instance.Controls.Add(lb2)
        ' ===
        instance.Size = New Size(300, 200)
        instance.ShowDialog()
    End Sub
    Public Sub lb1EventHandler(ByVal sender As Object, _
        ByVal e As System.EventArgs)
        Dim s As ListBox = sender
        Dim txt As String = s.Items(s.SelectedIndex.ToString)
        lb1.Items.Remove(txt)
        lb2.Items.Add(txt)
    End Sub
    Public Sub lb2EventHandler(ByVal sender As Object, _
        ByVal e As System.EventArgs)
        Dim s As ListBox = sender
        Dim txt As String = s.Items(s.SelectedIndex.ToString)
        lb2.Items.Remove(txt)
        lb1.Items.Add(txt)
    End Sub
End Class

Public Class Form1
    Dim instance As New Form
    Dim lb1 As New ListBox
    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
        lb1.Items.Clear()
        lb1.Items.Add("1,ทดสอบ")
        lb1.Items.Add("2,ไทยออล")
        lb1.Left = 10 ' pixels
        AddHandler lb1.Click, AddressOf lb1EventHandler
        instance.Controls.Add(lb1)
        instance.Size = New Size(300, 200)
        instance.ShowDialog()
    End Sub
    Public Sub lb1EventHandler(ByVal sender As Object, _
        ByVal e As System.EventArgs)
        Dim s As ListBox = sender
        Dim txt As String = s.Items(s.SelectedIndex.ToString)
        Dim ar As String() = Split(txt, ",")
        TextBox1.Text = ar(1)
        instance.Close()
    End Sub
End Class

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("1,ทดสอบ")
        ListBox1.Items.Add("2,ไทยออล")
        AddHandler ListBox1.Click, AddressOf lb1EventHandler
    End Sub
	Public Sub lb1EventHandler(ByVal sender As Object, _
        ByVal e As System.EventArgs)
        Dim s As ListBox = sender
        Dim txt As String = s.Items(s.SelectedIndex.ToString)
        Dim ar As String() = Split(txt, ",")
        Form2.ListBox1.Items.Add(ar(1))
    End Sub
    Private Sub Button1_Click_1(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
        Form2.Show()
    End Sub
End Class