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

[Tamgovb]

Hi All

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

[gavio]

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

[Tamgovb]

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.
Sorry, Your example of code does not fulfil none of my expectations

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

I greet Tamgovb

[Hack]

Listboxs do not have columns.

Why can't you use the ListView?

[Siddharth Rout]

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

I greet Tamgovb

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....

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