VB6 Code - Mengetahui Jumlah Tombol Yang Terdapat Pada Mouse

Di bawah ini merupakan fungsi VB6 untuk mengetahui jumlah tombol yang terdapat pada mouse.

Option Explicit

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CMOUSEBUTTONS As Long = 43

Public Function ButtonMouse()
    ButtonMouse = GetSystemMetrics(SM_CMOUSEBUTTONS)
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    MsgBox ButtonMouse
End Sub