----------------------------------------------------------------------------
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
ListBox2.SelectedIndex = ListBox1.SelectedIndex
End Sub
------------------------------------------------------------------------
Mas sencillo imposible ^_^,saludossss