VB6 Code - Menyembunyikan Dan Menampilkan Pointer Mouse

Di bawah ini merupakan procedure VB6 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