Option Explicit

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    MultiPage1.Value = 1
End Sub

Private Sub ListBox2_Click()
    MsgBox "ListBox2_Click"
End Sub

Private Sub ListBox3_Click()
    MultiPage1.Value = 1
    'ListBox4_Click�����I
End Sub

Private Sub ListBox4_Click()
    MsgBox "ListBox4_Click"
End Sub

Private Sub UserForm_Activate()
    Dim i As Integer
    For i = 1 To 5
        ListBox1.AddItem i
        ListBox2.AddItem i * 2
        ListBox3.AddItem i * 3
        ListBox4.AddItem i * 4
    Next i
End Sub