Binaryworld - ShowOpenWithDialog - Displaying and opening a file through the "Open w ... [ VB.net -> Windows ]

' Display the "Open with..." dialog and open the specified file with the
' selected program
' Example: ShowOpenWithDialog("d:\test.txt")

<System.Runtime.InteropServices.DllImport("shell32")> Shared Function _
  ShellExecute(ByVal hwnd As Integer, ByVal lpOperation As String, _
  ByVal lpFile As String, ByVal lpParameters As String, _
  ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
End Function

Sub ShowOpenWithDialog(ByVal filename As String)
  ShellExecute(0, String.Empty, "RUNDLL32.EXE", "shell32.dll,OpenAs_RunDLL " _
    & filename, "", 0)
End Sub