------------------------------------------------------------------------------------------ Module Module1 Public Declare Function SetCursorPos Lib "USER32" (ByVal x As Long, ByVal y As Long) As Long Sub main() Call SetCursorPos(1024, 768) End Sub End Module ------------------------------------------------------------------------------------------