VB6 Code - Menampilkan Dialog Open With

Di bawah ini merupakan kode VB6 untuk menampilkan Dialog Open With. Bagaimanakah caranya:

Option Explicit

Private Sub ShowOpenWith(Filename As String)
     Dim x As Long
     x = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " & Filename)
End Sub

Contoh penggunaan menampilkan dialog open with:

Private Sub Command1_Click()
     ShowOpenWith "C:\boot.ini"
End Sub