Memperoleh Jumlah Tombol Yang Terdapat Pada Mouse

Di bawah ini merupakan fungsi 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:

Private Sub Command1_Click() 
    MsgBox ButtonMouse 
End Sub