Try this code :
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
If ListBox1.SelectedIndex < ListBox2.Items.Count Then ListBox2.SelectedIndex = ListBox1.SelectedIndex
End Sub