Private Sub frmQuad_Load(ByVal sender As Object, ByVal e As EventArgs) _
      Handles MyBase.Load
 
        Panel1.Left = 0
        Panel2.Left = Me.Width / 2
        Panel3.Left = 0
        Panel4.Left = Me.Width / 2
 
        Panel1.Top = 0
        Panel2.Top = 0
        Panel3.Top = Me.Height / 2
        Panel4.Top = Me.Height / 2
 
        Panel1.Width = Me.Width / 2 - 10
        Panel2.Width = Me.Width / 2 - 10
        Panel3.Width = Me.Width / 2 - 10
        Panel4.Width = Me.Width / 2 - 10
 
        Panel1.Height = Me.Height / 2
        Panel2.Height = Me.Height / 2
        Panel3.Height = Me.Height / 2
        Panel4.Height = Me.Height / 2
 
        Me.WebBrowser1.Navigate("www.google.de")
        Me.WebBrowser2.Navigate("www.google.de")
        Me.WebBrowser3.Navigate("www.google.de")
        Me.WebBrowser4.Navigate("www.google.de")
 
        Me.WebBrowser1.Refresh()
 
        WebBrowser1.ScriptErrorsSuppressed = True
 
    End Sub
 
    Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        MsgBox("Test")
    End Sub