<DllImport("user32.dll")> _
    Private Function SendMessage( _
                       ByVal hWnd As IntPtr, _
                       ByVal Msg As Integer, _
                       ByVal wParam As Integer, _
                       ByVal lParam As System.Text.StringBuilder) _
                       As Integer
    End Function
 
 
    Private Const WM_GETTEXT As Int32 = &HD
 
 
 
    SendMessage(hwnd, WM_GETTEXT, BufferSize, SB)

    Private Declare Function GetWindowRect Lib "user32.dll" _
        (ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Boolean
 
 
    Private Function GetWindowPicture(ByVal hWnd As Integer) As  Bitmap
        Dim rc As RECT
        GetWindowRect(CType(hWnd, IntPtr), rc)
        Dim bm As New Bitmap(rc.right - rc.left, rc.bottom - rc.top)
 
        Dim g As Graphics = Graphics.FromImage(bm)
        Dim hdc As IntPtr = g.GetHdc()
 
        PrintWindow(CType(hWnd, IntPtr), hdc, 0)
        g.ReleaseHdc(hdc)
        g.Flush()
        g.Dispose()
 
        Return bm
    End Function