Problema con listview iconos

[Carlmycol]

Bien estoy tratando que en el listview salgan pequeños iconos del archivo seleccionado con un common dialo y me sale este error:

Compile erro:

Wrong numbers o arguments or invalid property assignment

Y no se por que si ya rebice todo el codigo, se supone que cuando de click sale el cuadro de dialogo, se selleciona archivo y salen los datos en el listview pero sale error mencionado enteriormente al hacer click

Código:

Private Sub CommandXP1_Click()

CD.DialogTitle = "Selecciona el archivo"
CD.Filter = "Todos los archivos *.*"
CD.ShowOpen



Dim x As ListItem

Set x = Lv1.ListItems.Add(, , CD.FileTitle, , icono(CD.FileName))
x.SubItems(1) = CD.FileName
x.SubItems(2) = FileLen(CD.FileName) & " bytes"
x.SubItems(3) = "Windows"
x.SubItems(4) = "Si"
x.SubItems(5) = "Visible"

end sub

No veo problema dejo codigo de funcion icono por si acaso el error esta alli

Código:

Const DI_MASK = &H1
Const DI_IMAGE = &H2
Const DI_NORMAL = DI_MASK Or DI_IMAGE
Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long
Private Declare Function DrawIconEx Lib "user32" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
Dim CuentaIcon As Integer

Function icono(Ruta As String)
    Dim Icon As Long
    
    Form1.Picture2.BackColor = vbWhite
    
    Icon = ExtractAssociatedIcon(App.hInstance, Ruta, 2)
    DrawIconEx Form1.Picture2.hdc, 1, 0, Icon, 16, 16, 0, 0, DI_NORMAL
    DestroyIcon Icon

    SavePicture Form1.Picture2.Image, Environ("HOMEDRIVE") & "\temp.bmp"
    CuentaIcon = CuentaIcon + 1
    
    Form1.IL.ListImages.Add CuentaIcon, , LoadPicture(Environ("HOMEDRIVE") & "\Temp.bmp")
    
    Kill Environ("HOMEDRIVE") & "\Temp.bmp"
    icono = CuentaIcon
End Function

Alguien me puede ayudar?