Private Declare Function GetAsyncKeyState Lib "user32" ( _
      ByVal vKey As Int32) As Short
 
    Private Const VK_LBUTTON = &H1
    Private Const VK_RBUTTON = &H2
    Private Const VK_MBUTTON = &H4
 
    Private Declare Function GetCursorPos Lib "user32" ( _
  ByVal lpPoint As Point) As Long
    Dim zahler As Int32
    Dim y_pos_alt As Integer
 
    Private Structure POINTAPI
        Public x As Int32
        Public y As Int32
    End Structure
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Timer1.Start()
        GetAsyncKeyState(VK_LBUTTON)
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
 
        If GetAsyncKeyState(VK_LBUTTON) Then
            zahler = zahler + 1
            If zahler > 2 Then
 
                y_pos = ((y_pos_alt - Cursor.Position.Y) * -1)
                WebBrowser1.Document.Window.ScrollTo(50, _
                  WebBrowser1.AutoScrollOffset.Y + y_pos * 3)
                label2.Text = WebBrowser1.Document.Window.Position.X
            Else
                y_pos_alt = Cursor.Position.Y
            End If
            label1.Text = "linke Maustaste - " & Cursor.Position.X & "/" & _
              Cursor.Position.Y
        ElseIf GetAsyncKeyState(VK_RBUTTON) Then
            label1.Text = "rechte Maustaste - " & Cursor.Position.X & "/" & _
              Cursor.Position.Y
        ElseIf GetAsyncKeyState(VK_MBUTTON) Then
            label1.Text = "mittlere Maustaste - " & Cursor.Position.X & "/" & _
              Cursor.Position.Y
        Else
            zahler = 0
            label1.Text = ""
            label2.Text = ""
        End If
    End Sub