human mouse?

I made this script
just a button and timer are needed

if you need to go ohter points at screen use
:
humanmouse(x,y)

hope it works dont know for sure

Code:

Dim mousex As Integer
    Dim mousey As Integer
    Dim x As Integer
    Dim y As Integer
    Function humanmouse(ByVal x As Integer, ByVal y As Integer) As Boolean
        mousex = Control.MousePosition.X.ToString
        mousey = Control.MousePosition.Y.ToString
        If Control.MousePosition <> New Point(x, y) Then
            If x < mousex Then
                mousex = mousex - 5 - (Rnd() * 5)
            ElseIf x > mousex Then
                mousex = mousex + 5 - (Rnd() * 5)
            End If
            If y < mousey Then
                mousey = mousey - 5 - (Rnd() * 5)
            ElseIf y > mousey Then
                mousey = mousey + 5 - (Rnd() * 5)
            End If
        Else
            Timer1.Enabled = False
        End If
    End Function
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        humanmouse(300, 400)
        Lbl1.Text = Control.MousePosition.ToString
        Windows.Forms.Cursor.Position = New Point(mousex, mousey)
        Timer1.Interval = 5 + (Rnd() * 5)

    End Sub

 

finaaly ty

 

There are so many things wrong with that.