vb Code:
  1. listbox2.TopIndex = listbox1.TopIndex