能不能给个源程序学习一下，做得太帅了，就是想知道你怎么做的。我是个新手希望高手们多指教，谢谢！QQ：1940920

挺不错的，顶!

Option Explicit

Private Const VK_RBUTTON = &H2
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim n As Integer
    n = GetKeyState(VK_RBUTTON)
    If Button = vbLeftButton And (n And &HFF00) <> 0 Then
        Debug.Print "双压了"
    End If
End Sub

GetKeyState的返回值，如果高位为1则按下

牛，太像了，可以假乱真了。呵呵。

如果不用api的话，可以用这个方法实现"双压"（麻烦点点）:
Dim IsShuangya As Long
Dim IsClick As Long
Private Sub Command1_Click()
If IsShuangya = 3 Then Text1.Text = "双压" Else Text1.Text = "不是双压"
IsClick = 1
End Sub

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
IsShuangya = IsShuangya + Button
IsClick = 0
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
IsShuangya = 0
If IsClick = 0 Then Text1.Text = "不是双压"
End Sub

小弟佩服

顶啊· · 跟真的没什么大区别了··  楼主把源码发下吧 研究研究··