[الاستاذ خليل]

يكون الصور متغيرة بجعل الصورة في متغير و تجلبها بالكود كالتالي:

Dim s As String
s = App.Path
If Mid(s, Len(s), 1) <> "\" Then s = s + "\"

Me.Picture = LoadPicture(s & "imge\bakbox.jpg")

الشفرة السابقة تقوم بجلب صورة الى خلفية برنامجك تاخذها من مجلد الصورimge و اسم الصورة الموضوعة bakbox و نسقها jpg


بالنسبة لاول سطر هو عرفنا متغير اسمه s من النوع النصي
بالسطر الثاني جعلنا قيمة المتغير هو مسار البرنامجك
بالسطر الثالث هو اختبار اذا كان اخر قيمة من مسار البرنامج هو / اذا لم يكن موجود يجعلها موجودة
بالسطر الرابع
قلنا لخاصية الصور للنموذج (فورم) اجلبي صورة من المسار الذي مكتوب بين القوسين

الاستاذ خليل