two easy questions

[Optic]

Option Explicit
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
ShowCursor (0)
End Sub
'1 = appear
'0 = disapp.

I tried this and the cursor was still visible