Option Explicit
 
Private Function OrTest(ByVal bReturn As Boolean) As Boolean
    '// Imprimo un texto para saber que he pasado por la función.
    Debug.Print Time$, "Función con el argumento " & bReturn & " llamada."
    OrTest = bReturn
End Function
 
Private Sub Form_Load()
 
    '// Aquí lo logico sería comprobar las dos ya que
    '// si la primera no es true, lo puede ser la segunda.
    If OrTest(False) Or OrTest(False) Then
        '// Nothing
    End If
 
    Debug.Print String$(75, "=")
 
    If OrTest(True) Or OrTest(False) Xor OrTest(True) Then
        Debug.Print "OK!"
        '// Nothing
    End If
End Sub

Option Explicit
 
Private Type POINTAPI
    X As Long
    Y As Long
End Type
 
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Public Function MoveMouse(ByVal FinalX As Long, ByVal FinalY As Long, _
Optional ByVal InitialX As Long = -1, Optional ByVal InitialY As Long = -1, Optional ByVal TimeToWait As Long = 5) As Boolean
On Error GoTo err
 
Dim PosActual           As POINTAPI
Dim I                   As Long
Dim DX                  As Long
Dim DY                  As Long
Dim P                   As Double
Dim StepVal             As Integer
 
            GetCursorPos PosActual
 
            If InitialX = -1 Then InitialX = PosActual.X
            If InitialY = -1 Then InitialY = PosActual.Y
 
            DX = (FinalX - InitialX)
            DY = (FinalY - InitialY)
 
            P = (DY / DX)
 
            If (DX < 0) Then StepVal = -1 Else StepVal = 1
 
            For I = 1 To DX Step StepVal
                SetCursorPos InitialX + I, InitialY + Round((I * P))
                Sleep TimeToWait
            Next
 
            MoveMouse = True
Exit Function
err:
End Function

MoveMouse Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, 0, 0