[حل شده] دستور دابل کلیک روی دکمه

[pishraw]

با سلام
کد می خواهم که با دابل کلیک بر روی دکمه ایجاد شده عمل کند. اساتید با توجه به فایل ضمیمه اگر راهنمایی کنند ممنون میشم

[iranweld]

با سلام

فایل شما باز نشد ولی در فایل پیوست با دبل کلیک بر روی باتن تعبیه شده ماکرو اجرا میگردد . ماکزیمم زمان بین دو کلیک یک ثانیه در نظر گرفته شده است.

Public s As Integer
Public k As Integer

Sub test()


s = s + 1

If s Mod 2 = 0 And Second(Now()) - k < 1 Then

MsgBox "ok" & vbNewLine & "ok" & vbNewLine & "ok"

k = Second(Now())

s = 0

Else

k = Second(Now())

End If


End Sub