VB.NET'te sağ tuş ile seçme olayı nasıl

[Vatansever]

Arkadaşlar VB.net’te bir formda ListBox1 ve textBox1 var bunları kodlarla bir access veri tabanı dosyasına bağladım bu veri tabanında Tablo Adı “BilgiBankasi” Sütunlar ise “SIRA” “AD” “NOT” listBox1’de seçili isimlere tıklatınca bu isme karşılık gelen notlar TextBox1’de görüntüleniyor ama sağ tıklatınca Sadece isimler seçilmiş gibi koyulaşıyor sağ tuş ile seçilmiş ismin karşılığı TextBox1’de görüntülenmiyor bu kodda nasıl bir değişiklik yapmam gerekiyor

       Private Sub AnaSayfa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          'TODO: This line of code loads data into the 'BilgiDataSet.BilgiBankasi' table. You can move, or remove it, as needed.
          Me.BilgiBankasiTableAdapter1.Fill(Me.BilgiDataSet1.BilgiBankasi)
   
          Me.ListBox1.Items.Clear()
          Me.ListBox1.Sorted = True
   
          dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
          dbSource = "Data Source=Bilgi.mdb;Persist Security Info=True;Jet OLEDB:Database Password=123"
   
          con.ConnectionString = dbProvider & dbSource
          con.Open()
   
   
          sql = "SELECT * FROM BilgiBankasi ORDER BY AD"
          da = New OleDb.OleDbDataAdapter(sql, con)
          da.Fill(ds, "BilgiBankasi")
   
          Me.ListBox1.DataSource = ds.Tables(0)
          Me.ListBox1.DisplayMember = "AD"
          Me.ListBox1.ValueMember = "SIRA"
          Me.ListBox1.SelectedItem = "AD"
          con.Close()
      End Sub
  ‘ **********************************************************
    Private Sub ListBox1_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
   
          ' Çift bağlantıyı önlemek için bağlantıyı temizler
          Me.TextBox1.DataBindings.Clear()
   
          'Bu ListBox içinde seçilen ismin 'AD' , 'NOT'sütünundaki karşılığını TextBox içinde görüntüler
          TextBox1.DataBindings.Add(New Binding("Text", ListBox1.SelectedItem, "NOT", True, DataSourceUpdateMode.OnPropertyChanged))
   
      End Sub
   
  ‘ **********************************************************
   
   
     Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
   
          If e.Button = MouseButtons.Right Then
              Dim pt As Point
              pt.X = e.X
              pt.Y = e.Y
              ListBox1.SelectedIndex = ListBox1.IndexFromPoint(pt)
              TextBox1.DataBindings.Add(New Binding("Text", ListBox1.SelectedIndex, "NOT", True, DataSourceUpdateMode.OnPropertyChanged))
   
          End If
      End Sub

:clover: