在VB中使用AttachThreadInput函數來改變其他進程的輸入法狀態，需要先聲明AttachThreadInput函數和相關參數的聲明。然后使用GetWindowThreadProcessId函數獲取目標進程的線程ID，通過調用AttachThreadInput函數來改變目標進程的輸入法狀態。

以下是一個使用AttachThreadInput函數來改變其他進程的輸入法狀態的示例代碼：

Imports System.Runtime.InteropServices

Public Class Form1
    ' 聲明AttachThreadInput函數
    <DllImport("user32.dll")>
    Private Shared Function AttachThreadInput(ByVal idAttach As Integer, ByVal idAttachTo As Integer, ByVal fAttach As Boolean) As Boolean
    End Function

    ' 聲明GetWindowThreadProcessId函數
    <DllImport("user32.dll")>
    Private Shared Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer
    End Function

    ' 改變其他進程的輸入法狀態
    Private Sub ChangeInputMethod(ByVal hWnd As IntPtr, ByVal enable As Boolean)
        Dim processId As Integer = 0
        Dim threadId As Integer = GetWindowThreadProcessId(hWnd, processId)
        If threadId <> 0 Then
            AttachThreadInput(threadId, 0, enable)
        End If
    End Sub

    ' 測試改變輸入法狀態按鈕的點擊事件
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim hWnd As IntPtr = Process.GetProcessesByName("目標進程名稱")(0).MainWindowHandle
        If hWnd <> IntPtr.Zero Then
            ' 改變輸入法狀態為啟用
            ChangeInputMethod(hWnd, True)
        End If
    End Sub
End Class

請注意替換示例代碼中的“目標進程名稱”為實際的目標進程名稱。同時，使用此方法需要以管理員權限運行程序。