vb中MSHFlexGrid怎么响应tab键，tab可以顺序的访问单元格

Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = 9 Then
If MSFlexGrid1.Row = MSFlexGrid1.Rows - 1 And MSFlexGrid1.Col = MSFlexGrid1.Cols - 1 Then
MSFlexGrid1.Row = 1
MSFlexGrid1.Col = 1
Exit Sub
End If
If MSFlexGrid1.Col = MSFlexGrid1.Cols - 1 Then '如到最后一列，自动换下一行第一列
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
MSFlexGrid1.Col = 1
Exit Sub
Else
MSFlexGrid1.Col = MSFlexGrid1.Col + 1
End If
End If
End Sub