real Control تعبني

لا داعي للخجل من طرح أي سؤال و لا اعتقد انه يوجد في المنتدى من يعامل الآخرين بعدم احترام باذن الله

بالنسبة الى سؤالك يا اخي عليك عمل التالي :

اضف مديول الى مشروعك و اكتب فيه الكود التالي :

Public Sub Delay(HowLong As Date)
' To make The ebent delay for some time :
TempTime = DateAdd("s", HowLong, Now)
While TempTime > Now
DoEvents
Wend
End Sub

ثم اضف الكود التالي الى امر التشغيل و سيقوم بقراء الملف الاول ثم الانتقال تلقائيا الى الملف الثاني بعد 3 ثوان

SongsCount = Val(List1.ListCount) - 1
For yy = 0 To SongsCount 
realaudio1.sourse=list1.text
Delay 3  ' هذا يعني ان تشغيل الاغنية التي بعدها سيتأخر 3 ثوان , تستطيع الاستعاضة برقم 3 عن طول الاغنية الحقيقي 
Next yy

مشكووووووووووور يالحبيب ما قصرت والله