Visual Basic > Code Snippets

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