如何用VB捕捉鼠标的坐标进行划线

希望实现在ppt中划线：一点固定 另一点随鼠标的移动而动

曾给出如下解答。
但不知如何实现  请教高手

在窗体可以响应MouseMove事件,参数中就可已获得鼠标位置。如果是在幻灯片中，获得鼠标位置要调用API函数GetCursorPos，声明
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
其中POINTAPI 的定义是
Type POINTAPI
    x As Long
    y As Long
End Type
得到鼠标位置后就可以划线了。不过我不知道在幻灯片中怎样响应MouseMove事件，只能建议你再做个定时器了。