スキルアップ・問題解決なら、モーグにおまかせ！

●詳細●
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

●補足説明●
次のステートメントで、IMEModeプロパティを設定します。

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