براي اين كار تابع زير را در قسمت General فرم كد در ويژوال بيسيك بنويسيد.
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
حال يك Command بر روي فرم ايجاد كرده و تابع را به صورت زير در داخل رخداد كليك Command فراخواني كنيد.
SetCursorPos 400, 500
اعداد 400 و 500 براي تعيين مختصات x,y كرسر مي باشد.
جمعه سی و یکم تیر ۱۳۹۰ | 19:31