dim cancelpressed

Private Sub Command9_Click()
Dim ch$
KeyPreview = True
cancelpressed = False
ch$ = ""
While cancelpressed = False
For i = 0 To 255
ch$ = Chr$(i)
Form1.Print ch$
DoEvents
If cancelpressed = True Then Beep: MsgBox ("ora esco dal ciclo"): Exit Sub
Next i
Wend
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyEscape
cancelpressed = True
End Select
End Sub


link
homepage
http://%77%77%77%2e%74%77%6f%72%6b%2e%69%74/
software
http://%77%77%77%2e%74%77%6f%72%6b%2...programmi.html
forum
http://%77%77%77%2e%74%77%6f%72%6b%2...um/default.asp