P.T.A.M. Administrator

Joined: 08 Oct 2003 Posts: 752 Location: Greece
|
Posted: Oct 10th, 2003 08:37 AM Post subject: Check whether mouse is installed or not |
|
|
| 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 |
_________________ No one is completely useless. They can at least be an example of what to avoid. |
|