Memeriksa Apakah Mouse Terinstall Pada Komputer Anda

Di bawah ini merupakan fungsi untuk memeriksa apakah mouse terinstall pada komputer Anda. Bagaimana implementasinya dalam Visual Basic 6.0? simaklah kodenya di bawah ini.

Option Explicit 
 
Private Const SM_CMOUSEBUTTONS = 43 
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long 
 
Public Function IsMousePresent() As Boolean 
    IsMousePresent = (GetSystemMetrics(SM_CMOUSEBUTTONS) > 0) 
End Function 

Contoh penggunaan:

Private Sub Command1_Click() 
    MsgBox IsMousePresent 
End Sub