Changes
From Free Knowledge Base- The DUCK Project: information for everyone
/* Multi-Columns Combo Box */
The following lines were added (+) and removed (-):
Private Sub Command1_Click() Dim Index As Long Index = ListBox1.ListCount Call ListBox1.AddItem("Column1", Index) ListBox1.List(Index, 1) = "Column2" ListBox1.List(Index, 2) = "Column3" End Sub