Private Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown
ListBox2.SelectedIndex = -1
ListBox3.SelectedIndex = -1
TextBox1.Text = ListBox1.SelectedIndex
TextBox2.Text = ListBox2.SelectedIndex
TextBox3.Text = ListBox3.SelectedIndex
End Sub
Private Sub ListBox2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox2.MouseDown
ListBox1.SelectedIndex = -1
ListBox3.SelectedIndex = -1
TextBox1.Text = ListBox1.SelectedIndex
TextBox2.Text = ListBox2.SelectedIndex
TextBox3.Text = ListBox3.SelectedIndex
End Sub
Private Sub ListBox3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox3.MouseDown
ListBox1.SelectedIndex = -1
ListBox2.SelectedIndex = -1
TextBox1.Text = ListBox1.SelectedIndex
TextBox2.Text = ListBox2.SelectedIndex
TextBox3.Text = ListBox3.SelectedIndex
End Sub