Di bawah ini merupakan fungsi VB6 untuk memeriksa apakah mouse terinstall pada komputer Anda. Bagaimana implementasinya dalam Visual Basic 6.0? simaklah kodenya di bawah ini.
Option Explicit
Private Const SM_CMOUSEBUTTONS = 43
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Function IsMousePresent() As Boolean
IsMousePresent = (GetSystemMetrics(SM_CMOUSEBUTTONS) > 0)
End Function
Contoh penggunaan fungsi VB6 di atas:
Private Sub Command1_Click()
MsgBox IsMousePresent
End Sub
