'Open New Project. Add a module section and put this public declaration in . Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Public Const SM_CMOUSEBUTTONS = 43 'Put a text box and a button on a from and write down this code on it. Private Sub Command1_Click() Text1.Text = GetSystemMetrics(SM_CMOUSEBUTTONS) End Sub