Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
　　If (Button And 3)=3 Then
　　Print "OK"
　　End If
　　End Sub

这个同时按下鼠标左右键，不会出现ok么？？？？

楼主强大！在键盘事件中能写鼠标事件代码。

mousedown和mouseup事件，估计还需要设置一个布尔变量,在这两个事件中改变布尔值来监视鼠标左键是按下还是放开，再在右键按下事件中来读取该布尔值以确定是否执行代码内容。这只是个思路，我还没试，你自己可以尝试着弄一下。

不过好像记得mousedown只识别左键或右键的按下，不能识别两键同时按下，还得用记时器来记录一下一键放开和另一键按下之间的时间差，当时间差小于一个设定值时将它们算作同时按下。早先用这种事件写过一个自制的扫雷。可惜代码不在现在的电脑上，没法贴出来了。

使用API
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Me.Show
Do
If GetAsyncKeyState(vbKeyLButton) And GetAsyncKeyState(vbKeyRButton) Then Form1.Caption = "左右"
If GetAsyncKeyState(vbKeyLButton) Then Form1.Caption = "左"
If GetAsyncKeyState(vbKeyRButton) Then Form1.Caption = "右"

DoEvents
Loop
End Sub

在mousedown事件里根本无法捕获左右键同时按下的值，因为你做不到同时，但在左右键按着不放的情况下，可以捕获button=3。

呵呵

请教版主，我怎么无法捕获到？我用下面代码要不是1、要不是2，既使按着左健不放再按右键也不会有3出现，该怎么才能获得3呢？
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print Button
End Sub

在MouseMove事件里捕获