Access列表框快速全选的技巧【最快】

之前发过列表框全选的方法这类的文章，但是速度上有待提升，如果记录很多的话，全选就显示有点慢了。
下面的代码能快读全选/取消全选列表框，真的很快！！每秒可读几万十万行，不会有任何延迟

Private Sub 全选_Click()
    Me.列表框.SetFocus
    Me.列表框.Selected(0)=True '如果有列标题则为Selected(1)
    DoEvents
    SendKeys "^+{END}", True
End Sub

Private Sub 取消全选_Click()
Me.列表框.SetFocus
SendKeys "{F2}", True
End Sub