IMEの単語登録について
テキストボックスに文字を入力して、確定と同時にIMEの単語登録辞書を表示せずに、辞書に登録するプログラムを作っているのですが、うまく出来ずにいます。途中のプログラムを載せますので間違いがありましたら教えていただけないでしょうか？
Private Declare Function GetKeyboardLayout_
Lib "user32" (ByVal idThread As Long) As Long_
Private Declare Function ImmRegisterWord_
Lib "Imm32.dll" Alias "ImmRegisterWordA" _
(ByVal hKL As Long, ByVal lpszReding As String,_
ByVal dwStyle As Long, ByVal lpszRegisterAs_
String) As Long
Private Sub Label6_Click()
Dim hKL As Long
Dim lpszReading As String '単語の読み
Dim lpszRegister As String '単語の語句
Dim dwStyle As Long '単語の品詞
hKL = GetKeyboardLayout()
lpszReading = Text1.Text 'Text1に入力された 単語をlpszReadingに格納
lpszRegister = Text1.Text 'Text1に入力された 単語をlpszRegisuterに格納
ImmRegisterWord hKL, lpszReading, dwStyle, lpszRegister '読み・語句をIME辞書に登録
End Sub
です。よろしくお願いします。
お礼
ありがとうございました