<System.Runtime.InteropServices.DllImport("user32.dll")> _
    Private Shared Function SendMessage( _
      ByVal hWnd As IntPtr, _
      ByVal wMsg As Int32, _
      ByVal wParam As Int32, _
      ByRef lParam As Int32) _
      As Int32
    End Function
    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Private Shared Function SetForegroundWindow(ByVal hWnd As Integer) As _
    Integer
    End Function
    Const WM_SETFOCUS As Int32 = &H7
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim p As Process = Process.GetProcessesByName("mozilla")(0)
        Me.SetForegroundWindow(p.MainWindowHandle.ToInt32)
        Me.SendMessage(p.Handle, Me.WM_SETFOCUS, 0, 0)
        Application.DoEvents()
        SendKeys.SendWait("^a")
        Application.DoEvents()
        SendKeys.SendWait("^c")
        Application.DoEvents()
        Me.SetForegroundWindow(Me.Handle.ToInt32)
        Application.DoEvents()
        Me.RichTextBox1.Text = Clipboard.GetDataObject().GetData( _
          DataFormats.Html)
    End Sub