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

تفضل هذا مثال
 ولكن عبأته مباشرة بدون قاعدة البيانات
كما يمكنك تعديل الكود ليشمل معالجة الخظأ الذي ينتج عندما تضغط بالماوس في مكان الفراغ حيث لا يوجد سجل
مع تغيير الحدث الى MouseClick كالتالي

كود :

 Private Sub ListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseClick
       If ListBox1.IndexFromPoint(e.Location) < 0 Then
           Exit Sub
       Else
           ListBox3.Items.Add(ListBox1.SelectedItem)
           Dim AA As Integer
           AA = ListBox1.SelectedIndex
           ListBox4.Items.Add(ListBox2.Items(AA))
       End If
   End Sub