Visual Basic Programming Code Examples Visual Basic > Code Snippets Code Examples Display the Open With dialog Display the Open With dialog Private Sub Command1_Click() Dim lngLaunch As Long lngLaunch = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL C:\autoexec.bat") End Sub