İşte size küçücük bir püf noktası, yaptığı iş ise çok basit: dosya ilişkilendirmeye yarayan "Birlikte Aç" kutusunu karşınıza getiriyor ve paramatre olarak verdiğiniz dosyayı istediğiniz bir programla açmanıza olanak tanıyor.

Private Sub Command1_Click() ' Komut butonuna tıklandığında
Dim x As Long
x = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL dosyaadi.xxx")
End Sub