Code:
Public Function getkeystate(ByVal key1 As Integer) As Boolean
Dim s As Short
s = getasynckeystate(key1)
If s = 0 Then Return False
Return True
End Function
Thanks
George
Public Function getkeystate(ByVal key1 As Integer) As Boolean
Dim s As Short
s = getasynckeystate(key1)
If s = 0 Then Return False
Return True
End Function