Un semplice esempio su come capire se il mose é collegato:

IN UN MODULO: 
Declare Function GetSystemMetrics Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Const SM_MOUSEPRESENT = 19


E UNA ROUTINE PER RICHIAMARLA: 
Dim MOUSEISTALLATO As Boolean
If MOUSEISTALLATO = GetSystemMetrics(SM_MOUSEPRESENT) = 1_ Then
MsgBox"Il mouse é istallato
Else
MsgBox"Il mouse non é istallato"
End If