Menyembunyikan dan Menampilkan Pointer Mouse

Di bawah ini merupakan procedure untuk menyembunyikan dan menampilkan pointer mouse. Bagaimana implementasinya dalam Visual Basic 6.0, simaklah kodenya di bawah ini:

Option Explicit 
 
Private Declare Function ShowCursor Lib "user32" ByVal bShow As Long) As Long 
 
Sub ShowMouseCursor(bShow As Boolean) 
    ShowCursor bShow 
End Sub 

Dua contoh penggunaan menyembunyikan dan menampilkan pointer mouse

Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
      ShowMouseCursor Check1.Value = 0) 
End Sub 
 
Private Sub Command1_Click() 
    ShowMouseCursor True 
End Sub