Listview & imagelist & run

Jeg sidder her med et Problem.

Jeg har brugt Imagelist & Listview til at samle genveje op
fra mappen \Games\ og \Programs\

De bliver vist flot og nydelig.
Nu er det sådan at man skal ikke kun kunne se disse flotte ikoner
man skal også kunne køre dem.

Jeg har prøvet at disse 2 metoder

Private Sub ListView_click1()
    Dim retval
    retval = Execute.ShellExecute(0, "open", itm, 0, 0, SW_SHOWMAXIMIZED)

End Sub


Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Dim retval
  retval = Execute.ShellExecute(0, "open", itm, 0, 0, SW_SHOWMAXIMIZED)
End Sub

Begge 2 har samme problem
Hvorfra henter man path & filnavn.
Er der en bedre løsning en lige de 2 eksempler der.