VB6 - Passare i dati da una listbox di un ocx alla listbox di un form

Ciao a tutti!
Avrei la necessità di passare tutti gli elementi di una listbox che uso in un ocx, ad una listbox ubicata nel form.

Ho provato così. ma mi sa che sono lontanino dalla soluzione, anzi e' proprio sbagliato!! qualche consiglio? Grazie a tutti

Public Property Get FileFounds() As String
ReDim Arrays(List1.ListCount)
For k = 0 To List1.ListCount - 1
Arrays(k) = k
Next k
FileFounds = Arrays(k)
End Property

ps. Questo e' il codice dell'ocx, ne progetto exe invece tentavo di richiamare gli elementi nel seguente modo

list1.additem usercontrol1.Filefound

devi predisporre opportunamente una proprietà nel tuo OCX in modo che ti restituisca un Item passando come argomento l'indice, analogamente a come faresti per la proprietà List:

Public Property Get FoundFiles(ByVal Index As Integer) As String
FoundFiles = List1.List(Index)
End Property

e una proprietà che ti restituisca il numero di elementi:

Public Property Get FoundFilesCount() As Integer
FoundFilesCount = List1.ListCount
End Property

così nel Form che ospita l'OCX puoi scrivere:

Dim k As Integer
For k = 0 To TuoOcx.FoundFilesCount - 1
List1.AddItem TuoOcx.FoundFiles(k)
Next k

TheTruster

Grazie TheTruster, professionale e gentile come sempre!