GetCursorInfoの使い方

GetCursorInfoの使い方について教えてください。現在は下記のようにしていますが返り値に0しかはいりません。なにがおかしいかご指導お願いします。m(._.)m ペコッ
--モジュール--
Public Declare Function GetCursorInfo Lib "user32" (pci As CURSORINFO) As Long
Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer


Public Type POINTAPI
X As Long
Y As Long
End Type

Public Type CURSORINFO
cbSize As Long
flags As Long
hCursor As Long
ptScreenPos As POINTAPI
End Type

Public Field As CURSORINFO

--Form1--
Dim lRet As Long

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyHome) Then
lRet = GetCursorInfo(Field)
End If
End Sub

No.1 ベストアンサー 回答者： taka_tetsu 回答日時： 2005/03/16 18:05

呼び出す前に次の一行を追加。

Field.cbSize = LenB(Field)