VB Snippet - Check whether mouse is installed or not

VB Code:

Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
 
Private Sub Form_Load()
 
    Dim x As Long
 
    x = GetSystemMetrics(19)
 
    If x Then
 
        MsgBox "Mouse is installed"
 
    Else
 
        MsgBox "Mouse is not installed"
 
    End If
 
End Sub