I have been trying to move items selected in listbox 1 and move them to list
box 2 but only 1 column is being transferred. the code I'm using is as follows

Private Sub cmdSelectButton_Click()
Dim TestArray()

   lstForecastSelected.ColumnCount = 3              
   lstForecastSelected.ColumnWidths = "100;145;10"
   While i < lstForecastSelect.ListCount
       If lstForecastSelect.Selected(i) = True Then
           lstForecastSelected.AddItem lstForecastSelect.List(i)
           lstForecastSelect.RemoveItem (i)
       Else
              i = i + 1
       End If
   Wend
TestArray = lstForecastSelected.List

at this stage there are up to 20 entries in lstForecastSelect listbox with 6
columns for each item in the list, 3 of them showing in the listbox. the
items that were selected have been transferred to the lstForecastSelected
listbox but instead of 6 colums of data there is only one, the first column
of data in the first listbox. I could transfer the data to an array and then
to the listbox but I think I should be able to do this directly. Is this so?
TestArray is just to see whats in the lists.

thank you
Phil