<code><font color=green>' zunächst die benötigten API-Deklarationen</font>
Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long</code>

<code>Private Sub File1_DblClick()
  Dim sFilename As Strng
 
  If File1.ListIndex >= 0 Then
    sFilename = File1.Path
    If Right$(sFilename, 1) <> "\" Then sFilename = sFilename & "\"
    sFilename = sFilename & File1.List(File1.ListIndex)
 
    ShellExecute Me.hWnd, "Open", sFilename, vbNullString, _
      vbNullString, vbNormalFocus
  End If
End Sub</code>