Hola a todos
Estoy intentando hacer pruebas con la funcion GetAsynKeyState pero cada vez que ejecuto el programilla me peta al passar por encima de la llamada a la funcion: If GetAsyncKeyState(Cnt) <> 0 Then


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


'Este Timer esta enchufado rodando cada 10 ms


GetPressedKey()


End Sub


Function GetPressedKey() As String
Dim Cnt As Long


For Cnt = 32 To 128
'cada vez que hace la llamada al GetAsyncKeyState me peta
If GetAsyncKeyState(Cnt) <> 0 Then
GetPressedKey = CStr(Cnt)
Exit For
End If
Next Cnt

End Function


El error que me da es :


Se detectó PInvokeStackImbalance
Message: A call to PInvoke function '0510DIAL!_0510DIAL.Form1::GetAsyncKeyState' has unbalanced the stack. This is likely because the managed PInvoke signature does not match the unmanaged target signature. Check that the calling convention and parameters of the PInvoke signature match the target unmanaged signature.


Alguien Tiene pajolera idea de aque se esta refiriendo????


Muchissimas Gracias!!