' Display the "Open with..." dialog and open the specified file with the ' selected program' Example: ShowOpenWithDialog("d:	est.txt") 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 IntegerEnd FunctionSub ShowOpenWithDialog(ByVal filename As String)    ShellExecute(0, String.Empty, "RUNDLL32.EXE", "shell32.dll,OpenAs_RunDLL " _        & filename, "", 0)End Sub