Memeriksa Apakah Mouse Terinstall

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	Form	1

Masukkan souce ini ke dalam Form :Public Function CheckMouse() As Boolean If GetSystemMetrics(SM_CMOUSEBUTTONS) > 0 Then CheckMouse = True 'Mouse terinstall Else CheckMouse = False 'Mouse tidak terinstall End If End Function Private Sub Form_Load() If CheckMouse Then MsgBox "Mouse terinstall di PC Anda!", vbInformation, "Terinstall" Else MsgBox "Mouse belum terinstall di PC Anda!", vbCritical, "Belum Terinstall" End If End Sub

Masukkan souce ini ke dalam Module :Public Const SM_CMOUSEBUTTONS = 43 Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long