' 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