Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim NewMousePosition As Point AppActivate("Notepad")NewMousePosition = New Drawing.Point(10, 10)Windows.Forms.Cursor.Position = PointToScreen(NewMousePosition) End Sub