Problemer med åbning af fil fra filelistbox

Prøve med dette:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub File1_Click()
    OpenThisFile Me.hwnd, File1.List(File1.ListIndex)
End Sub

Public Sub OpenThisFile(FormHandel As Long, FileName As String)
    On Error Resume Next
    Dim X As Long
    X = ShellExecute(FormHandel, "Open", FileName, 0&, 0&, SW_SHOWMAXIMIZED)
End Sub