IMEModeプロパティを使って、テキストボックスのIMEモードを設定する
ことも取得することも可能です。

　サンプルでは、フォームに配置されたテキストボックスのIMEモードの
設定をメッセージボックスに表示しています。

● 準備 ●

　フォームにテキストボックス「テキスト1」を配置します。
　コマンドボタン「コマンド1」も配置して、クリック時のイベントに
サンプルのイベントプロシージャを作成します。

● サンプル　●

Private Sub コマンド1_Click()
    Dim myIME As String
    
    myIME = "テキストボックス「テキスト1」のIME入力モード＝"
    
    Select Case テキスト1.IMEMode
        Case 0
            myIME = myIME & "コントロールなし"
        Case 1
            myIME = myIME & "オン"
        Case 2
            myIME = myIME & "オフ"
        Case 3
            myIME = myIME & "使用不可"
        Case 4
            myIME = myIME & "ひらがな"
        Case 5
            myIME = myIME & "全角カタカナ"
        Case 6
            myIME = myIME & "半角カタカナ"
        Case 7
            myIME = myIME & "全角英数"
        Case 8
            myIME = myIME & "半角英数"
    End Select
    
    MsgBox myIME

End Sub

● 補足説明 ●

(1)次のステートメントで、IMEModeプロパティを設定します。

例：IME入力モードをオンにします。
  テキスト1.IMEMode = acImeModeOn
例：全角ひらがなを指定します。
　テキスト1.IMEMode = acImeModeHiragana