expression.MouseAvailable
expression Required. An expression that returns an Application object.
Example
This example displays a message no mouse is available.
If Application.MouseAvailable = False Then
Msgbox "Make sure your mouse is plugged in."
Else
Msgbox "Mouse is available"
End If