Dim lngi As Long
    For lngi = 0 To Me.列表框.ListCount - 1
        Me.列表框.Selected(lngi) = Me.AllSelect
    Next

创建一个复选框，将代码写入复选框的更新后事件，指定对应列表框，即可实现全选，全不选操作