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

Private Sub Command1_Click()
    ' 보이기
    ShowCursor& True
End Sub

Private Sub Command2_Click()
    ' 숨기기
    ShowCursor& False
End Sub





Source Page : http://www.mentalis.org/tips/tip6.shtml