' 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 
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
