xxxxxxxxxx
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