Poner texto en diferentes colores en un Listbox

[mendietar]

Pues me pasa una cosa curiosa, efectivamente el control segun te lo descargas funciona pero al intentar crear uno o cuando pulsas sobre él me empieza a dar errores como por ejemplo:

"No se admite Get (propiedad de solo escritura)"

Option Explicit

' our type to keep track of the item text and it's desired colors
Private Type LIST_ITEMS
sText As String
nNormalForeColor As Long
nNormalBackColor As Long
nSelectedForeColor As Long
nSelectedBackColor As Long
End Type

' our array to hold the list items
Private m_asVirtualList() As LIST_ITEMS

Private Sub Form_Load()

Dim i&

' add some stuff to the list
ReDim m_asVirtualList(9) As LIST_ITEMS

With m_asVirtualList(0)
.sText = "Apple"
.nNormalBackColor = vbRed
.nNormalForeColor = vbBlack
.nSelectedBackColor = vbWhite
.nSelectedForeColor = vbBlack
End With
With m_asVirtualList(1)
.sText = "Orange"
.nNormalBackColor = &H80C0FF
.nNormalForeColor = vbBlack
.nSelectedBackColor = vbWhite
.nSelectedForeColor = vbBlack
End With

With UVirtualList1
For i = 0 To UBound(m_asVirtualList)
.AddItem ""
Next
End With

End Sub

Es que no entiendo cómo está añadiendo los items porque el additem del final está vacio ... Bueno me seguiré pegando con ello a ver qué pasa.