【Visual Basic】タブレットモードのタッチキーパッド(TabTip)のコントロール

■TabTip起動時

Process.Start("c:\program files\common files\microsoft shared\ink\tabtip.exe")

■TabTipを閉じる時

'宣言

Const WM_SYSCOMMAND As Integer = &H112
Const SC_CLOSE As Integer = &HF060
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As IntPtr) As IntPtr

'閉じたいイベントで

Dim hWnd As IntPtr = FindWindow("IPTip_Main_Window", vbNullString)
If hWnd <> IntPtr.Zero Then PostMessage(hWnd, WM_SYSCOMMAND, SC_CLOSE, 0)