[alshandodi]

أخي العزيز هل اضع هذا الكود فقط لتشغيل الايات القرأنية 

كود :

   If ListBox1.Items.Count = 0 Then Exit Sub
       If dt.Rows.Count = 0 Then Exit Sub
       If ListBox1.SelectedIndex < 0 Then Exit Sub
       If IO.File.Exists(dt.Rows(ListBox1.SelectedIndex)(0)) = False Then Exit Sub
       wmp.URL = Application.StartupPath & "\mp3\" & dt.Rows(ListBox1.SelectedIndex)(0)"
       wmp.controls.play()
       ok = True
       BtnPause.Enabled = True
       BtnPlay.Enabled = False
       BtnStop.Enabled = True

   


- فانه لا يعمل أو اضيف اكواد اخرى 
وبارك الله فيك وجزاك الله خير الجزاء