Čaute!

Je možné cez CommandButton v písať viac stlpcov do ListBoxu? Ak áno, tak ako? Ďakujem. Už týždeň pri tom bohujem! Skúšam aj tento kód, ale nejde to!

Private Sub CommandButton1_Initialize()
ListBox1.AddItem "Item 1, Column 1"
ListBox1.List(0, 1) = ""
ListBox1.List(0, 2) = ""
ListBox1.AddItem "Item 2, Column 1"
ListBox1.List(1, 1) = ""
ListBox1.List(1, 2) = 1
ListBox1.AddItem "Item 3, Column 1"
ListBox1.List(2, 1) = ""
ListBox1.List(2, 2) = 2
End Sub