Three OptionButton controls named OptionButton1, OptionButton2, and OptionButton3.
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.AddItem "Item 1, Column 1"
ListBox1.List(0, 1) = "Item 1, Column 2"
ListBox1.AddItem "Item 2, Column 1"
ListBox1.List(1, 1) = "Item 2, Column 2"
ListBox1.Value = "Item 1, Column 1"
OptionButton1.Caption = "List Index"
OptionButton2.Caption = "Column 1"
OptionButton3.Caption = "Column 2"
OptionButton2.Value = True
End Sub
Private Sub OptionButton1_Click()
ListBox1.BoundColumn = 0
Label1.Caption = ListBox1.Value
End Sub
Private Sub OptionButton2_Click()
ListBox1.BoundColumn = 1
Label1.Caption = ListBox1.Value
End Sub
Private Sub OptionButton3_Click()
ListBox1.BoundColumn = 2
Label1.Caption = ListBox1.Value
End Sub
Private Sub ListBox1_Click()
Label1.Caption = ListBox1.Value
End Sub