VB 6.0: sendkey Holding a button down

[Tontow]

I have figured out how to use sendkey to send key presses to other apps, but how would you go about sending a key press and hold to other apps?

IE: press and hold W for 10 seconds.

[longwolf]

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Debug.Print KeyCode
    'Place your sendkey code here, it will repeatedly send the code
End Sub

[Hack]

I have figured out how to use sendkey to send key presses to other apps, but how would you go about sending a key press and hold to other apps?

IE: press and hold W for 10 seconds.

What is your end goal with this?

[Tontow]

I was playing around with sendkeys and was just wondering if it could be done without it sending tens of thoushands of repeating keypresses.

[Moorzee]

Place a timer on the form and perform the sendkeys in there?

Dim lngCount As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Timer1.Enabled = True
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    Timer1.Enabled = False
    lngCount = 0
End Sub

Private Sub Timer1_Timer()

If lngCount = 10 Then
    ''sendkeys here
    MsgBox "Key sent"
End If

lngCount = lngCount + 1

End Sub

[Tontow]

You missunderstood, I want to send the keydown and keyup events to another app.