VB6和VB.NET中对光标的编程

在VB6中利用API对光标进行编程：

Option Explicit Private Type POINTAPI X As Long Y As Long End Type Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long Public Function GetXCursorPos() As Long Dim pt As POINTAPI GetCursorPos pt GetXCursorPos = pt.X End Function Public Function GetYCursorPos() As Long Dim pt As POINTAPI GetCursorPos pt GetYCursorPos = pt.Y End Function '得到光标在屏幕中的位置 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.Caption = "X Screen Position = " & GetXCursorPos Label2.Caption = "Y Screen Position = " & GetYCursorPos End Sub '隐藏光标 Private Sub Command1_Click() ShowCursor False End Sub '显示光标 Private Sub Command2_Click() ShowCursor True