vb 日語輸入法kana 模式

前幾天寫程序的時候使用了如下代碼：

Private   Sub Text1_KeyPress() Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
            sendkeys "{tab}"
    End If
End Sub

 form上有文本框数组text1 各文本框的IMEMode设置如下

text1(0)  2-OFF 

text1(1) 2      

text1(2)  4- DBCS HIRAGANA     

text1(3)  4  

text1(4)  4 

text1(5) 2

text1(6) 2 

text1(7) 4 

text1(8) 4 

text1(9) 4 

原来的设想是 用回车键代替Tab键 但是进行日语输入的时候有时需要使用日语输入法中的kana 模式，这个模式是一直存在的 

结果 从0 到2 都OK  在2按下回车后kana 模式没有了 　接下来按一次回车kana模式切换一次

这对输入造成了很大的麻烦

 使用keyUp就解决了

Private   Sub Text1_KeyUp() Sub Text1_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)

    If KeyCode = vbKeyReturn Then

            Text1(Index+1).setFoucs

        End If

End Sub

还需要在实验几次