请输入专案类型(网站专案或者应用程式专案)：
小型专案测试
请教一下，我想要写个小程式，
可以在萤幕的画面上不同位置，自动执行鼠标的按键动作，
目前有找到相关的程式码，
但是是限于执行专案的接口上，
不过我是想可以执行程式后，
在萤幕桌面上的任何位置都可执行鼠标的按键动作，
不晓得该如何改程式码的部分呢?!
目前找到的程式码部分如下:
' mouse_event moves in a coordinate system where
' (0, 0) is in the upper left corner and
' (65535,65535) is in the lower right corner.
' Convert the coordinates.
Dim screen_bounds As Rectangle = Screen.GetBounds(pt)
Dim x As Integer = CInt(pt.X * 65535 / screen_bounds.Width)
Dim y As Integer = CInt(pt.Y * 65535 / screen_bounds.Height)
谢谢各位达人们!!!