[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اعمل الخير وستجد مردوده فورا بإذن الله
وردني في رسالة خاصة من انسان نبيل ورجل شهم وكريم حل أخر  
 ايها الرجل الطيب بارك الله بك وزادك خلقا وعلما وعمرا مديدا وصحة وعافية
لي رجاء واملي فيك بعد الله كبير وهو ان تقوم بالرد في المنشورات مباشرة ليستفيد كل الاعضاء وانا سأكون ممنون جدا
أخي د.رضوان 
هذا الكود يناسب تماما برمجتك وهو من الرجل الطيب
لكن انتبه الى الاحذاث 

كود :

 Private Sub ListBox1_MouseUp(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseUp, ListBox2.MouseUp
       If ListBox1.IndexFromPoint(e.Location) < 0 Then
           Exit Sub
       Else
           Dim AA As Integer
           AA = ListBox1.SelectedIndex
           If Not ListBox4.Items.Contains(ListBox2.Items(AA)("test")) Then
               ListBox3.Items.Add(ListBox1.Items(AA)("PRICY"))
               ListBox4.Items.Add(ListBox2.Items(AA)("test"))
           End If
       End If
   End Sub