CodeItBetter Programming Another VB Programming Blog

'System & API - How to Check whether Mouse exist or not

Option Explicit
 
Public Const SM_CMOUSEBUTTONS = 43
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
 
Public Function CheckMouse() As Boolean
    CheckMouse = GetSystemMetrics(SM_CMOUSEBUTTONS) > 0
End Function
 
'How can I call this function:
Private Sub Main()
    If CheckMouse Then
        Call MsgBox("The Mouse exist on your system.", vbInformation, App.Title)
    Else
        Call MsgBox("The Mouse doesn't exist on your system.", vbInformation, App.Title)
    End If
End Sub