Private Sub Multipage1_Change()
  Select Case Multipage1.SelectedItem.Index
    Case 0 
      Listview1.Refresh
    Case 1 
      Listview2.Refresh
    Case 2 
      Listview3.Refresh
    Case 3 
      Listview4.Refresh
  End Select
End Sub