Public Function GetNewText(ByVal hwnd As IntPtr) As String
        If (Not hwnd.Equals(IntPtr.Zero)) Then
            Dim SB As New System.Text.StringBuilder
            Dim BufferSize As Integer = 32768
            SB.EnsureCapacity(BufferSize)
 
            SendMessage(hwnd, WM_GETTEXT, BufferSize, SB)
            Return SB.ToString
        Else
            Return ""
        End If
    End Function