ممكن مساعدة من خبراء برمجة فيجوال بيسك؟؟؟؟؟

هذا الكود لإضافة عروض الفلاش لبرنامجك
*كود برمجي*


--------------------------------------------------------------------------------


Private Sub Command1_Click()
Dim s As String
s = App.Path
If Mid(s, Len(s), 1) <> "\" Then s = s + "\"
ShockwaveFlash1.Movie = s + "a4.swf"

end sub
السلام عليكم ورحمة الله وبركاته
أنا مبتدأه جداً في الفيجوال ...ممكن مساعدة؟
أبغى أعرف أيش اللي ممكن أغيره في الكود حتى يشتغل عندي الفلاش على حسب مايناسب الجهاز
و لو ممكن أغرف أيش و ظيفة هذا ؟
s = App.Path
If Mid(s, Len(s), 1) <> "\" Then s = s + "\"
و لكم مني جزيل الشكر

السلام عليكم
app.path
بيجيب ال current program directorey
بمعنى إنه بيجيب عنوان المكان المحفوظ فيه برنامج الفيجوال بيسك بتاعك
وعلشان تشغلى الفلاش من مكان محدد جربى الكود
Private Sub Command1_Click()
Dim s As String
s = "c:\"
هنا تم تعريف إن الملف على الروت على السى فى المتغير إس
If Mid(s, Len(s), 1) <> "\" Then s = s + "\"
هنا يتأكذ إن كان أخر العنوان / أم لا وإن لم تكن فيضيفها
ShockwaveFlash1.Movie = s + "a4.swf"
هنا يقوم بتشغيل ملف الفلاش
يعنى العنوان النهائى للفلاش يكون
c:\a4.swf
أى على الروت
end sub

و عليكم السلام
جزاك الله خيراً
ShockwaveFlash1 لكن هذا

الشوك ويف مو محمل عندي يمكن ما تحمل الفيجوال بيسك كامل
ممكن تعطيني الرابط اللي أحمل منه الشوك ويف ؟؟؟
و بأي كتاب تنصحني أقرأ الفيجوال بيسك؟ يكون كتاب مرجع