Dim instance As New Recognizers Dim returnValue As Recognizer returnValue = instance.GetDefaultRecognizer(&H409) '英語 ' returnValue = instance.GetDefaultRecognizer(&H411) '日本語 'https://docs.microsoft.com/en-us/previous-versions/dotnet/netframework-3.0/ms569813(v%3dvs.85) InkEdit1.Recognizer = returnValue MessageBox.Show(InkEdit1.Recognizer.ToString)