Copia dati da ListBox a MSFlexGrid

[yyzyyz]

non so se ho capito bene, prova cosi :

Dim icount As Integer
Private Sub Form_Load()
icount = 1
End Sub

Private Sub List1_Click()
MSFlexGrid1.TextMatrix(1, icount) = List1.Text
If List1.ListIndex >= 0 Then List1.RemoveItem List1.ListIndex
icount = icount + 1
MSFlexGrid1.Cols = MSFlexGrid1.Cols + 1
End Sub