Column property in MultiListbox

[Stuart]

I get the message "Could not get the Column property....
Invalid argument" on the following:

Private Sub lbDataCode_Click()
If lbDataCode.ListIndex <> -1 Then
If lbDataCode.Column(1, lbDataCode.ListIndex) <> "" Then <==
tbCtrTrade.Text = lbDataCode.Column(1, lbDataCode.ListIndex)
tbCtrTrade.SetFocus
tbCtrTrade.SelStart = 0
tbCtrTrade.SelLength = Len(tbCtrTrade.Text)
Else
tbCtrTrade.Text = ""
tbCtrTrade.SetFocus
End If
Else
tbCtrTrade.Text = ""
End If
End Sub

Col1 in the listbox is populated correctly, and the user is
about to enter corresponding values into Col2.

Why the message, please?

Regards.

 

[Tom Ogilvy]

Column is zero based, so to work with column 1 use zero, not 1

If lbDataCode.Column(0, lbDataCode.ListIndex) <> "" Then

If you are working with the current selected item you can shorten it to

If lbDataCode.Column(0) <> "" Then

or so sayeth help.

 

[Stuart]

Many thanks,

Regards.

Column is zero based, so to work with column 1 use zero, not 1

If lbDataCode.Column(0, lbDataCode.ListIndex) <> "" Then

If you are working with the current selected item you can shorten it to

If lbDataCode.Column(0) <> "" Then

or so sayeth help.