seleccionar lisbox

Señores tengo un pequeño problema tengo 4 lisbox nombres
y apellidos necesito seleccionar 1 items de nombre1 por
ejemplo y que los otros se seleccionen pero que
correspondan al mismo valor el codigo en vb6 es


Private Sub Lstpriapell_Click()
On Error Resume Next
Indice = Lstpriapell.ListIndex
Lsttipodocafi.ListIndex = Indice
LstNumdocafi.ListIndex = Indice
Lstsegnom.ListIndex = Indice
lstprinom.ListIndex = Indice
Lstsegapell.ListIndex = Indice
End Sub


como lo hago en net

muchas gracias