*- frmXXX.lstXXX.GotFocus().
*- Temporarily change Ctrl+A behavior.
On Key Label Ctrl+A KeyBoard "A"
Return .T.

*- frmXXX.lstXXX.KeyPress().
LParameters nKeyCode, nShiftAltCtrl
If nKeyCode = 65 Then
   For iItem = 1 To This.ListCount
      This.SelectedID( iItem ) = .T.
   Next iItem
Endif
Return .T.

*- frmXXX.lstXXX.LostFocus().
*- Restore default Ctrl+A behavior.
On Key Label Ctrl+A
Return .T.