如何改变和恢复系统鼠标图标？

我想让程序改变系统的鼠标图标为我自定义的，但改好后却无法恢复回原来系统默认的图标，如何才能做到啊？
代码如下：
Const OCR_NORMAL = 32512
Const IDC_ARROW = 32512&
Private Declare Function LoadCursorFromFile Lib "user32" Alias _
        "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" _
       (ByVal hInstance As Long, lpCursorName As Any) As Long ' modified
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, _
        ByVal id As Long) As Long
'以上是api函数原型
Private Sub Command3_Click()
'改变系统鼠标图标为我自定义的图标，鼠标图标文件路径C:\m1.cur
Dim hCursor As Long
hCursor = LoadCursorFromFile("C:\m1.cur")
Call SetSystemCursor(hCursor, OCR_NORMAL)
End Sub
上面的操作能成功改变系统鼠标图标，问题就是如何把鼠标图标恢复到系统默认图标？
Private Sub Command4_Click()
Dim hCursor As Long
Dim ret_val As Long
hCursor = LoadCursor(0, IDC_ARROW)
ret_val = SetSystemCursor(hCursor, OCR_NORMAL)
End Sub
上面这个函数没起到作用，并没有恢复到系统默认鼠标图标。函数SetSystemCursor(hCursor, OCR_NORMAL)返回值为0，执行不成功，不知道问题出现在什么地方？
谁能有办法帮我把鼠标还原到系统默认图标啊？在网上找了一天，都没有好的解决方案，都是调用SetSystemCursor函数，而我调用时不起作用。晕！