CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to Show Open with dialog
Public Sub DisplayOpenWith(strFile As String)
'This code displays the Open With Dialog (the one that pops up when you
'double-click a file that does not have an associated application).
    On Error Resume Next
    Shell "rundll32.exe shell32.dll, OpenAs_RunDLL " & strFile
End Sub
 
Private Sub Command1_Click()
'Pass the File Name
    Call DisplayOpenWith("C:\FileWithNoDefaultApplication.bvq")
End Sub