Mass load icons into imagemanager?

Okay, so I have an imagelist that I really like that I have been using in my projects.

I recently switched my GUI to include codejock controls because it looks 1000x better.

The listview when you right click it, you cannot assign an imagelist, or a SmallIcon property. You have to use their imagemanager to load icons as far as I know.

Is there a way that I could possibly either load all of the imagelist into the imagemanager, or any way around this?

Maybe a way to mass add a folder of icons into a imagemanager?

I've tried something along the lines of...

Dim IcoPath As String Dim i As Integer For i = 1 To 247 IcoPath = "C:\fam\" & "picture" & i  & ".gif" With ImageManager1 .Icons.LoadIcon(IcoPath, i, xtpImageNormal) Next i End With

Of course that didn't work...
Help? :D

I know I could just add all of the icons to an imagemanager manually but theres 247 pictures

Private Sub Form_Load()
Dim IcoPath As String
Dim i As Integer
For i = 1 To 247
IcoPath = "C:\fam\" & "picture (" & i & ")" & ".gif"
ImageManager1.Icons.LoadBitmap IcoPath, 1, xtpImageNormal
Next i
ListView1.Icons = ImageManager1.Icons
ListView1.ColumnHeaders.Add , , "hello", 2000
With ListView1.ListItems.Add
.Text = "About me"
.Icon = 1
End With
End Sub


Is not working for me...