Mausbewegung mit vbs Script abfragen

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Text;

using System.Windows.Forms;

namespace StringPerf

{

public partial class PopupPanel : Form

{

private Boolean doDrag = false;

private Int32 offsetX = 0;

private Int32 offsetY = 0;

public PopupPanel()

{

InitializeComponent();

}

void Parent_MouseMove(object sender, MouseEventArgs e)

{

}

private void PopupPanel_MouseDown(object sender, MouseEventArgs e)

{

doDrag = true;

offsetX = e.X;

offsetY = e.Y;

}

private void PopupPanel_MouseUp(object sender, MouseEventArgs e)

{

doDrag = false;

}

private void PopupPanel_MouseMove(object sender, MouseEventArgs e)

{

if (doDrag)

{

this.Location = new Point(MousePosition.X - offsetX, MousePosition.Y- offsetY);

}

}

}

}

<System.Runtime.InteropServices.ComVisible(True)> _
 <Microsoft.VisualBasic.ComClass()> Public Class MousePosition
  Private m_Point As POINTAPI
  Private m_LastPoint As POINTAPI
  Private m_Interval As Double
  Private m_HasMoved As Boolean
  Private WithEvents t As System.Timers.Timer

  Private Structure POINTAPI
    Public x As Int32
    Public y As Int32
  End Structure

  Private Declare Auto Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Int32  

  Public Sub New()
    GetCursorPos(m_Point)
    m_LastPoint = m_Point
    m_Interval = 3000
    m_HasMoved = True
    t = New System.Timers.Timer(m_Interval)
    't.Start() 'ggfls. automatisch starten  
  End Sub

  Public ReadOnly Property X() As Int32
    Get
      GetCursorPos(m_Point)
      Return m_Point.x
    End Get
  End Property
  Public ReadOnly Property Y() As Int32
    Get
      GetCursorPos(m_Point)
      Return m_Point.y
    End Get
  End Property
  Public ReadOnly Property HasMoved() As Boolean
    'Gibt an ob sich die Mauscursor-Position im angegebenen Intervall verändert hat.  
    Get
      Return m_HasMoved
    End Get
  End Property
  Public Property Interval() As Single
    Get
      Return m_Interval
    End Get
    Set(ByVal value As Single)
      m_Interval = value
      t.Interval = m_Interval
    End Set
  End Property
  Public Sub StartMouseWatcher()
    t.Start()
  End Sub
  Public Sub StopMouseWatcher()
    t.Stop()
  End Sub
  Private Sub t_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles t.Elapsed
    GetCursorPos(m_Point)
    If (m_Point.x <> m_LastPoint.x) Or (m_Point.y <> m_LastPoint.y) Then
      m_HasMoved = True
    Else
      m_HasMoved = False
    End If
    GetCursorPos(m_LastPoint)
  End Sub
End Class