マウスカーソルのデスクトップ描画について

vb2008で現在のマウスカーソルのハンドルを取得し、デスクトップに描画するというプログラムを組んでいます。しかし、以下の部分を実行してもマウスカーソルは描画されません。どこがおかしいのでしょうか？

Dim hcur As Long
Dim hdc As Long

'マウスカーソルのハンドル取得
hcur = GetCursor()

'デスクトップのデバイスコンテキスト取得
hdc = GetDC(GetDesktopWindow())

'カーソル描画
DrawIcon(hdc,0,0,hcur)

ちなみに同名のAPIの宣言はしてあります。

後，このソースの用途ですが，複数マウスに対応した複数カーソルの表示です。もしそれにあたって別の方法でカーソルを表示すべきなどのご指摘がありましたら，それもよろしくお願いします。

No.1 回答者： vbhanatyan 回答日時： 2009/11/27 21:47

>vb2008で現在のマウスカーソルのハンドルを取得し、....

>Dim hcur As Long
>Dim hdc As Long
>ちなみに同名のAPIの宣言はしてあります。
どのように宣言していますか？ VB6.0 の場合と VB2008 では違いますよ
Long 型を使っているところを見ると宣言から間違っているかと。