menyembunyikan pointer mouse

trik sederhana ini digunakan untuk menyembunyikan pointer mouse pada form,
langsung saja, kita hanya perlu mendeklarasikan fungsi showcursor.
berikut ini contohnya :

kita membutuhkan sebuah form dan 2 buah command button dalam project kali ini :
'script codenya

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

Private Sub Form_Unload(Cancel As Integer)
ShowCursor True
End Sub

Private Sub Command1_Click()
ShowCursor True
End Sub

Private Sub Command2_Click()
ShowCursor False
End Sub