Press Button on Key Press

[wey97]

In this program, the 'X' key is registered using RegisterHotKey( )
and the form is subclassed to process the message when
the 'X' key is pressed. How can I show a button press of the button
on the form when the key is pressed? I tried to SendMessage( )
WM_LBUTTONDOWN and WM_LBUTTONUP, but that is done so
fast that the keypress can't be seen. This is a poor solution.
Any Ideas?

[Megatron]

So you're trying to graphically display a button being pressed? Why not send the BM_SETSTATE message? Just pause for about 100 milliseconds between the 2 messages so that you can see it.

[wey97]

Use a timer? Yeah, that works.
Is there a better way?

[Megatron]

No, don't use the Timer componet. What I meant was create your own pause routine e.g.

Sub Pause(amount As Integer)
    Start = Timer
    Do While Timer < Start + amount
       DoEvents
    Loop
End Sub

Then to pause for 100 ms, you would use:

Call Pause(0.1)