Visual Basic - seleccion en listas

hola de nuevo, ahora el problema es el siguiente:
tengo por ej 5 listas (con datos diferentes) y necesito seleccionar un elemento de una de ellas y que en las otras se seleccione con el mismo indice que el que yo seleccione.
desde ya muchas gracias

en el evento clic de la lista 1 pones

lista2.item(index lista1).selected, o algo asi. al menos te doy la idea. yo te pongo el codigo como debe ser porque no tengo el vb6 instalado en este momento

hola Lucio, te mandaria el programa completo pero no se tu mail para enviarlo
contactame y te lo envio.
mi mail es:
[email protected]

empecemos:
1.- abre una forma nueva
2.- inserta un listbox
3.- inserta un label1
4.- copia el listbox de tal manera que quede asi(list1(0),list1(1),list1(2),list1(3),list1(4)
5.- inserta este codigo

Rem llenamos los listbox con 20 registros
Private Sub Form_Load()
Dim e, i As Integer
For e = 1 To 20
For i = List1.Count - 1 To 0 Step -1
List1(i).AddItem "click"
Next i
Next e
End Sub

Rem en el listbox que toques todos los demas seran seleccionados
Private Sub List1_Click(index As Integer)
Dim i As Integer
label1.Caption = List1(1).ListIndex
Select Case index
Case 0
label1.Caption = List1(0).ListIndex
For i = List1.Count - 1 To 0 Step -1
List1(i).Selected(label1) = True
Next
Case 1
label1.Caption = List1(1).ListIndex
For i = List1.Count - 1 To 0 Step -1
List1(i).Selected(label1) = True
Next
Case 2
label1.Caption = List1(2).ListIndex
For i = List1.Count - 1 To 0 Step -1
List1(i).Selected(label1) = True
Next
Case 3
label1.Caption = List1(3).ListIndex
For i = List1.Count - 1 To 0 Step -1
List1(i).Selected(label1) = True
Next
Case 4
label1.Caption = List1(4).ListIndex
For i = List1.Count - 1 To 0 Step -1
List1(i).Selected(label1) = True
Next
End Select
End Sub

Gracias Juan, por tu respuesta. ya la pongo en práctica. jeje. nos estamos viendo