Visual Basic .net, create reference to an object - vb.net

Question

I'm trying to create a simple application. It has 2 listboxes, but both lists are mostly the same. So in my code, I want to be able to execute the same code on either listbox easily.
In VB6, I could name both controls the same, assign an index to them, and that works. Here in VB.net 2008, it seems to not be possible.
What I ideally want, is to create a variable during the program that I can assign to either of the listbox, and then during the rest of the code use this new variable to control the listbox attached to it.
Here's an example:
Private Sub lVegetables_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lVegetables.Click
ListToEditor(0, lVegetables.SelectedIndex)
End Sub
Private Sub lFruits_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lFruits.Click
ListToEditor(1, lFruits.SelectedIndex)
End Sub
Private Sub ListToEditor(ByVal iList, ByVal iIndex)
Select Case iList
Case 0
Dim lList As lVegetables
Case 1
Dim lList as lFruits
End Select
tEditor.text = iList.item(iIndex)
End Sub
Is there a way I can use a different variable to reference to a listbox on the fly, or can I assign an index to them so they have the same name?

Answer 1

You can use the same handler for both ListBoxes and cast the sender:
Sub ListBox_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lVegetables.Click, lFruits.Click
Dim lb = DirectCast(sender, ListBox)
ListToEditor(lb, lb.SelectedIndex)
End Sub
Private Sub ListToEditor(lb As ListBox, index as Int32)
tEditor.text = lb.Items(index).ToString()
End Sub
The whole code could be simplified to:
Sub ListBox_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lVegetables.Click, lFruits.Click
Dim lb = DirectCast(sender, ListBox)
If lb.SelectedIndex >= 0 Then tEditor.Text = lb.SelectedItem.ToString()
End Sub