msflexgrid输入字母大写的问题

Private Sub msflexgrid1_KeyPress(KeyAscii As Integer) 
If KeyAscii <> ASC_ENTER Then
  SendKeys Chr$(KeyAscii)
-----------------------------------------
问题是,当我打开caps lock键,输入大写字母时,第一个输入的是小写,第二就正常,请问各位大侠如何解决.
  我使用
 sendkeys asc(ucode(chr$(keyascii)))
字母大小写能解决,但当输入数字时键值不对应...