[RESOLVED] Need Press/Hold/Release type button

How do I make a button that does one function when pressed and held down and another function when released?

Can't you use the MouseUp and MouseDown events of the Command Button?

set command16 caption to talk

Code:

---

Private Sub Command16_Click()
Select Case Command16.Caption
Case Is = "talk"
your code here for talking
Command16.Caption = "Stop"
Case Is = "Stop"
your code here stop talking
Command16.Caption = "talk"
End Select

End Sub

---

:p:p:p:p:p:p:p:p:p:p:p:p:p

@ladoo your code is not for press and hold.

Quote:

---

Originally Posted by dee-u

Can't you use the MouseUp and MouseDown events of the Command Button?

---

OMG, of course. It never entered my mind, duh:o