Two ListBox - What I have to do to simplify procedure?

Hi All:wave:

I have something like this (added files) - it fine work, but....

How every can it see, in this code are a two different procedures (basModule) - every for other listbox. It does this code weak readable, strongly complex, slowly and outright non-professional. How can I wrote this statement for more listbox?
I need help how I can correctly wrote such code, simplify it and make it that will considerably quickly. Please HELP ME in this. Maybe on example my code? Thanks in advance

Here's a sample that shows how to make the code more dynamical. It just shows the way you can do it. You'll have to implement it yourself ;)

Thank you for reply. Unfortunately....You understood me probably wrong, Gavio. In this example it should be (this is necessary):
first: setting of columns
second: writing in five columns at the same time
and this all across use one simple of code. So, prob my is like this: how I can to do it?
I thought that suffice rebuild this code. My request about help for me still is a current.:cry:
Sorry, Your example of code does not fulfil none of my expectations :(

P. S. the construction of project exclude use ListView control

I greet:wave: Tamgovb

Listboxs do not have columns.

Why can't you use the ListView?

Quote:

---

Originally Posted by Tamgovb

.......
P. S. the construction of project exclude use ListView control

I greet:wave: Tamgovb

---

Quote:

---

Originally Posted by Hack

Listboxs do not have columns.

Why can't you use the ListView?

---

What Hack says is absolutely correct. However if you want to give that look to your listbox, you can try this....

vb Code:

Private Sub Form_Load()
   List1.AddItem "Row1Column 1" & Chr(9) & "Row1Column 2" & Chr(9) _
   & "Row1Column 3" & Chr(9) & "Row1Column 4" & Chr(9) & "Row1Column 5"
   
   List1.AddItem "Row2Column 1" & Chr(9) & "Row2Column 2" & Chr(9) _
   & "Row2Column 3" & Chr(9) & "Row2Column 4" & Chr(9) & "Row2Column 5"
   
   List1.AddItem "Row3Column 1" & Chr(9) & "Row3Column 2" & Chr(9) _
   & "Row3Column 3" & Chr(9) & "Row3Column 4" & Chr(9) & "Row3Column 5"
   
   List1.Refresh
End Sub