Private Sub Form_KeyPress(KeyAscii As Integer)
Dim n As String
If KeyAscii = 13 Then
Print n
End If
n = n + Chr(KeyAscii)
End Sub
Dim n As String
If KeyAscii = 13 Then
Print n
End If
n = n + Chr(KeyAscii)
End Sub
2005-10-14 10:52
