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.


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.528 / Virus Database: 324 - Release Date: 16/10/2003