COMO PEGAR A CLASSE COM O HWND

Module Func
    Public Declare Function FindWindow Lib [Ô]user32.dll[Ô] Alias [Ô]FindWindowA[Ô] (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr

    Public Declare Function FindWindowEx Lib [Ô]user32.dll[Ô] Alias [Ô]FindWindowExA[Ô] (ByVal hWndParent As Integer, ByVal hWndChildAfter As Integer, ByVal lpszClass As String, ByVal lpszWindow As String) As Integer
 
Public Declare Function SetForegroundWindow Lib [Ô]user32[Ô] (ByVal hwnd As Integer) As Integer

    Public Declare Function SendMSG Lib [Ô]user32.dll[Ô] Alias [Ô]SendMessageA[Ô] (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer

 Public Const WM_SETTEXT As Integer = &HC

End Module

Public Class Form
 Private hwnd As IntPtr
    Private Int_hwnd As IntPtr
    [ô] The hWnd of the most recently found window.
    Private m_LastHwnd As Integer
    Private Sub Enviar_Click(sender As System.Object, e As System.EventArgs) Handles Enviar.Click
       
        hwnd = FindWindow(vbNullString, [Ô]SERIAL - Input serial[Ô])
        hwnd = FindWindowEx(hwnd, 0, [Ô]Edit[Ô], vbNullString)
        SendMSG(hwnd, WM_SETTEXT, 0, [Ô]ADFRE-THGL-1D3K-JVB2-JBK4[Ô])
        SetForegroundWindow(hwnd)
    End Sub
End Class