Option Explicit Private Enum LCID ja_jp = 1041 en_us = 1033 End Enum ' VBA の場合 Private Sub UserForm_Initialize() Set InkEdit1.Recognizer = CreateObject("MSInkAut.InkRecognizers").GetDefaultRecognizer(LCID.en_us) End Sub ' VB.NET の場合 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load InkEdit1.Recognizer = New Recognizers().GetDefaultRecognizer(LCID.en_us) End Sub