Binaryworld - ShowOpenWithDialog - Display the "Open with" dialog ... [ VB -> Windows ]

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

' Display the "Open with..." dialog and open the specified file with
' the selected program
'
' Example:
' ShowOpenWithDialog "C:\Programs\MyProg\MyFile.xyz"

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