<div>
Option Explicit<br />
Private mousebutton As Integer<br />
<br />
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<br />
&nbsp; &nbsp; ' remember which button was down<br />
&nbsp; &nbsp; mousebutton = Button<br />
End Sub<br />
<br />
Private Sub Form_Click()<br />
&nbsp; &nbsp; If mousebutton = vbLeftButton Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; MsgBox &quot;Left click&quot;<br />
&nbsp; &nbsp; ElseIf mousebutton = vbRightButton Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; MsgBox &quot;Right click&quot;<br />
&nbsp; &nbsp; End If<br />
End Sub<br />

</div>


Option Explicit
Private mousebutton As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ' remember which button was down
    mousebutton = Button
End Sub

Private Sub Form_Click()
    If mousebutton = vbLeftButton Then
        MsgBox "Left click"
    ElseIf mousebutton = vbRightButton Then
        MsgBox "Right click"
    End If
End Sub


<div>
GREAT ! Thanks. It worked.<br />
Prof Weissman
</div>


<div>
<div class="content wysiwyg-content">
Of course in VB^ one can trap a mouse click. How can I distinguish whether it was a LEFT or a RIGHt mouse click?
</div>
</div>


Of course in VB^ one can trap a mouse click. How can I distinguish whether it was a LEFT or a RIGHt mouse click?

Detecting a right mouse click in VB6

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.