VB 6获取鼠标当前位置API

存档信息。

以前写一个控制自定义窗口缩放的控件的时候用过，今天用怎么也想不起来。找出源代码，原来如此：

Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long

Private Type PointAPI
      X As Long
      Y As Long
End Type

使用：

Dim ScreenPoint As PointAPI
GetCursorPos ScreenPoint

换算为Twips：

Screen.TwipsPerPixelX * ScreenPoint.X
Screen.TwipsPerPixelY * ScreenPoint.Y