-- السورة الموالية في اللست بوكس
nItemsInListBox = ListBox.GetCount("ListBox1");

if nItemsInListBox ~= 0 then
	-- إيجاد العنصر والسورة المحددة
	tSelected = ListBox.GetSelected("ListBox1");
	sJustFinishFile = ListBox.GetItemData("ListBox1", tSelected[1]);
	nFileIndex = ListBox.FindItem("ListBox1", -1, 1, sJustFinishFile);
	nNextFileIndex = nFileIndex+1;

	if nFileIndex == nItemsInListBox or nFileIndex > nItemsInListBox then 
	--nNextFileIndex > nItemsInListBox or -- this will select the 1st song of the PlayList when 
	-- the last file is finished
		ListBox.SelectItem("ListBox1", 1);
		sFileName = ListBox.GetItemData("ListBox1", 1); 
	else
		-- تشغيل السورة الموالية
		sFileName = ListBox.GetItemText("ListBox1", nNextFileIndex);
		result = ListBox.GetItemData("ListBox1", nNextFileIndex);
		ListBox.SelectItem("ListBox1", nNextFileIndex);
		nSelect = ComboBox.GetText("ComboBox1");
			if nSelect == "محمود خليل الحصري"then
			MediaPlayer.Load("media_player", "AutoPlay\\Audio\\hossari\\"..result..".mp3");
			elseif result == "عبدالباسط عبدالصمد" then
			MediaPlayer.Load("media_player", "AutoPlay\\Audio\\basset\\"..result..".mp3");
			elseif result == "محمد صديق المنشاوي" then
			MediaPlayer.Load("media_player", "AutoPlay\\Audio\\menshawi\\"..result..".mp3");
			-- ويمكنك وضع المزيد من المقرئين هنا بنفس الطريقة
			end
		Web.LoadURL("Web1", "Autoplay\\Docs\\"..result..".htm");  
	end
end