أرجو حل مشكلة في فتح الملفات بواسطة الفيجوال

بسم الله
السلام عليكم ورحمة الله وبركاته

إخوتي عندي مشكلة في فتح الملفات بواسطة الفيجوال
حيث كنت أستخدم هذا الكود لفتح الملفات
PHP:
Dim sh As New Shell

Private Sub Button1_Click()
    sh.Open (App.Path & "\Quest for The Truth\and rights of women in Islam   2.mp3")
End Sub
ولكن بعد عمل البرنامج وتجربته عند أحد الإخوة وجدت أن الأمر لا يعمل أي أضغط علي الزر ولا ينفذ شيء فأرجو إخوتي وضع حل هذه المشكلة هام جدًا
 
عودة
أعلى