Filling a Multi-Column Listbox

[Nader]

Hello.

I wrote a code to fill a mulit-colum Listbox but I'd like the user to be
able to move up and down the data.

With one a column ListBox it's pretty easy I only have to use AddItem with
the number row and automatically it push the data down.

But I can't find a way to do it with a multi-colum ListBox, could someone
please help me ?

Thanks in advance!

Nader

 

[Guest]

You want to first define an array, such as:
Dim MyData (1 to j, 1 to 4)

Then something like this fills a 4-col listbox:
With ListBox1
.ColumnCount = 4
.ColumnWidths = "100 pt;35 pt;40 pt;50 pt"
.List = MyData
.ListIndex = MyIndex
End With

 

[Nader]

I found the answer over at :

http://www.dicks-blog.com/archives/2004/06/14/move-upmove-down-in-a-listbox/