listbox'a textboxtan ve comboboxtan sutunlara ay1rarak veri

[metatak]

selam
bir form yapt1m bu formun üzerinde 1 adet textbox, 2 adet combobox ve 1 adette listbox var.
listboxa 3 sutun olusturdum. texte, combolara girdigim verileri listyeye bir buton vas1tas1yla ekle dedigim zaman textbox1 1. sütuna
combobox1 2. sutuna
combobox2yi 3. sutuna
nas1l yazd1rabilirim.
herkese tesekkürler.

 

[idogus]

[vb:1:07bd0e7817]
Private Sub CommandButton1_Click ()
Static i As Integer
Listbox1.AddItem TextBox1
ListBox1.List(i, 1) = ComboBox1
ListBox1.List(i, 1) = ComboBox2
i = i + 1
End Sub
[/vb:1:07bd0e7817]