Private Sub lblMenu_Click(Index As Integer)
strMenu = lblMenu(Index).Caption
Dim m As Integer
For i = 1 To Index
PicMenu(i).Top = PicMenu(i - 1).Top + PicMenu.item(i - 1).Height
Next i
ListView1.Top = PicMenu(i - 1).Top + PicMenu.item(i - 1).Height
If Index < 7 Then PicMenu(Index + 1).Top = ListView1.Top + ListView1.Height
For i = Index + 2 To PicMenu.Count - 1
PicMenu(i).Top = PicMenu.item(i - 1).Top + PicMenu.item(i - 1).Height
Next i
Select Case Index
Case 0
ListView1.ListItems.Clear
ListView1.Enabled = True
For i = 0 To m1.Count - 1
Key = "【" & m1.item(i).Caption & "】"
m = i + 1
Set itmX = ListView1.ListItems.Add(, , Key, m)
Next i
Case 1
ListView1.ListItems.Clear
ListView1.Enabled = True
For i = 0 To m2.Count - 1
Key = "【" & m2.item(i).Caption & "】"
m = i + m1.Count + 1
Set itmX = ListView1.ListItems.Add(, , Key, m)
Next i
Case 2
ListView1.ListItems.Clear
ListView1.Enabled = True
For i = 0 To m3.Count - 1
Key = "【" & m3.item(i).Caption & "】"
m = m1.Count + m2.Count + i + 1
Set itmX = ListView1.ListItems.Add(, , Key, m)
Next i
Case 3
ListView1.ListItems.Clear
ListView1.Enabled = True
For i = 0 To m4.Count - 1
Key = "【" & m4.item(i).Caption & "】"
m = m1.Count + m2.Count + m3.Count + i + 1
Set itmX = ListView1.ListItems.Add(, , Key, m)
Next i
Case 4
ListView1.ListItems.Clear
ListView1.Enabled = True
For i = 0 To m5.Count - 1
Key = "【" & m5.item(i).Caption & "】"
m = m1.Count + m2.Count + m3.Count + m4.Count + i + 1
Set itmX = ListView1.ListItems.Add(, , Key, m)
Next i
Case 5
ListView1.ListItems.Clear
ListView1.Enabled = True
For i = 0 To m6.Count - 1
Key = "【" & m6.item(i).Caption & "】"
m = m1.Count + m2.Count + m3.Count + m4.Count + m5.Count + i + 1
Set itmX = ListView1.ListItems.Add(, , Key, m)
Next i
Case 6
ListView1.ListItems.Clear
ListView1.Enabled = True
For i = 0 To m7.Count - 1
Key = "【" & m7.item(i).Caption & "】"
m = m1.Count + m2.Count + m3.Count + m4.Count + m5.Count + m6.Count + i + 1
Set itmX = ListView1.ListItems.Add(, , Key, m)
Next i
Case 7
ListView1.ListItems.Clear
ListView1.Enabled = True
For i = 0 To m8.Count - 1
Key = "【" & m8.item(i).Caption & "】"
m = m1.Count + m2.Count + m3.Count + m4.Count + m5.Count + m6.Count + m7.Count + i + 1
Set itmX = ListView1.ListItems.Add(, , Key, m)
Itemgross = m
Next i
End Select
End Sub