Hur pausa exekveringen på något ställe ( i koden) och sedan fortsätta
med att trycka på en tangent, ???

Kolla in tips [Pausa programexekvering]

//Fredde

Såhär skulle du kunna göra om du har ett formulär öppet, du måste sätta formulärets egenskap KeyPreview = True

<code>
Option Explicit
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Dim keypressed As Boolean

Private Sub Command1_Click()
Debug.Print 1
waitForKey
Debug.Print 2
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
keypressed = True
End Sub

Private Sub waitForKey()
Do Until keypressed
DoEvents
Sleep 100
Loop
keypressed = False
End Sub
</code>

/Johan

Tackar

//E