Public InitIMEMode As Integer Sub Entering ( Source As Field ) InitIMEMode = IMEStatus If InitIMEMode <> IME_HIRAGANA Then Call IMESetMode ( IME_HIRAGANA ) End If End Sub
Sub Exiting ( Source As Field ) If InitIMEMode <> IMEStatus Then Call IMESetMode ( InitIMEMode ) End If End Sub
See Also