Hi :) how know when a keyboard key is just being released

No ?? strange ! but i have find another solution by type :

Type TKeyUp
Field Key
Field Flag=True
End Type





Up=initkey(200)
down=initkey(208)

While Not KeyHit(1)

If KeyUp(Up) Then
Print "HUUUP"
EndIf

If KeyUp(Down) Then
Print "HUUUP"
EndIf


Wend

Function initkey(key)
K.TKeyUp=New TKeyUp
K\Key=Key
K\Flag=True
Return Handle(K)
End Function


Function KeyUp(Id)
K.TKeyUp=Object.TKeyUp(Id)
kdFlag = KeyDown(K\Key )
If kdFlag = False And k\Flag = False
good=True
EndIf
If kdFlag = True
k\Flag = False
Else
k\Flag = True
EndIf

If Good=True Then
Return Good
EndIf
End Function