江羽另类试用注册次数限制（MDE版）

ThinkQuest

Private Sub 全选_Click()
    Me.列表框.SetFocus
    Me.列表框.Selected(Me.列表框.ListCount-1)=True
    DoEvents
    SendKeys "^+{HOME}", True
    Me.全选.SetFocus
End Sub

Private Sub 取消全选_Click()
    Dim 列表项变量 As Variant

    Me.列表框.SetFocus
    SendKeys "{DOWN}", True
    Me.取消全选.SetFocus
    For Each 列表项变量 In Me.列表框.ItemsSelected
        Me.列表框.Selected(列表项变量).Selected=False
    Next
End Sub