I make that following your explanation but it not rules... Can you see my error?


Option Explicit
Dim Marc As Boolean

Private Sub Command3_KeyDown(KeyCode As Integer, shift As Integer)
On...