请问高手,怎样判断鼠标左右键同时按下这一事件?十分感谢!

Question

方法一：
Private  Sub  Form_MouseDown(Button  As  Integer,  Shift  As  Integer,  X  As  Single,  Y  As  Single)
          Static  Tm_L  As  Double,  Tm_R  As  Double
          Dim  LR_D  As  Boolean
  
          If  Button  =  1  Then
                  If  Timer  -  Tm_R  <    0.05  Then  LR_D  =  True
                  Tm_L  =  Timer
          End  If
          
          If  Button  =  2  Then
                  If  Timer  -  Tm_L  <    0.05  Then  LR_D  =  True
                  Tm_R  =  Timer
          End  If
          
          If  LR_D  Then
                  MsgBox  "OK"
                  LR_D  =  False
          End  If
  End  Sub
=======================================================
方法二：
Private  Sub  Form_MouseDown(Button  As  Integer,  Shift  As  Integer,  X  As  Single,  Y  As  Single)
  If  Me.Tag  =  CStr(Button)  Then  Me.Tag  =  ""
  
  If  Me.Tag  <  >    ""  Then
          MsgBox  ("請客吃飯加分")
  End  If
  
  Me.Tag  =  Button
  End  Sub
  Private  Sub  Form_MouseUp(Button  As  Integer,  Shift  As  Integer,  X  As  Single,  Y  As  Single)
  If  Me.Tag  =  CStr(Button)  Then  Me.Tag  =  ""
  End  Sub
====================================================================

Answer 1

只要将左右键的值加起来就可以了，如：button=3(1+2)

Answer 2

Option Explicit
Dim mr, ml As Boolean
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    ml = True
ElseIf Button = 2 Then
    mr = True
End If
If ml And mr Then
    MsgBox "两键齐发"
    ml = False '复位
    mr = False '复位
End If
End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'如果其中一键弹起则
If Button = 1 Then
    ml = False
ElseIf Button = 2 Then
    mr = False
End If
End Sub
'试试我的代码，保准没问题，因为我试了n次。