[Taha Okla]

لو عندك 5 صور اسم كل صورة على رقم محدد مثلا 1 - 2 3 4 5  مع الاحقة اللي هي jpg

فقط تحتاج : 
زر واحد
صورة واحدة 
تايمر واحد

بتحتاج تكتب الكود :
في قسم التصريحات العامة بتعرف عن متغير ليأخذ الرقم S من نوع Integer

في حدث إقلاع النافذة بتسند قيمة ابتدائية للمتغير لتكن 1
في حدث الأمر بتكتب كود تفعيل التايمر ..
في حدث التك لـ التايمر  بتكتب كود تبديل الصور مع شرط يرجع يعد لما يصل لقيمة محدد
بالتاللي بيكون عندك الكود هو (ع أساس أن الصور موجودات في مجلد اسمه TA  على سطح القرص C) :

كود :

Dim s As Integer

Private Sub Command1_Click()
   Timer1.Enabled = True
End Sub

Private Sub Form_Load()
   s = 1
End Sub

Private Sub Timer1_Timer()
   Timer1.Interval = 5000
   Picture1.Picture = LoadPicture("C:\TA\" & s & ".jpg")
   s = s + 1
   If s > 5 Then s = 1
End Sub

اذا لساك شباب وفي عندك وقت فراغ كويس، وعندك كمبيوتر مواصفاته فوق المتوسط
أتركك من هذه اللغة المنقرضة واذهب وتعلم شي أفضل لك ولوقتك 
مثلا لغات الدوت نت .. 
VB.Net 
 C#.net     هذه أنصحك بها كثيرا  - يوجد عشرات القنوات على اليوتيوب من كل اللغات متخصصة بشرح هذه اللغة  بشكل موسع فوق كل ما تتصور
 Python
أي شي لسا فيك تجد له تحديثات  ومهتمين يقدروا يساعدوك لما توقف عند نقطة محددة