Dialog Otev°φt v programu ...
V deklaraΦnφ Φßsti formulß°e zapiÜte:
Private Sub ShowOpenWith(strPath
As String)
Shell "rundll32.exe shell32.dll, OpenAs_RunDLL "
& strPath
End Sub
Na formulß° p°idejte tlaΦφtko. Na udßlost Click tlaΦφtka:
Private Sub Command1_Click()
ShowOpenWith "c:\myfile.txt"
End Sub