*- 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.