need help to make trainer for games

[0theghost0]

iam new for make trainers and i want to learn to be master

iam training to make this but i get some error :

Public Class Form1
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim Sun As String = 99999
        Dim Coine As String = 99999
        Dim F1 As Boolean
        Dim F2 As Boolean
        F1 = GetAsyncKeyState(Keys.F1)

        If F1 = True Then
            WriteDMAInteger("PlantsVsZombies", &H19F9C8, {&H5578}, Sun, 1)
            WriteDMAInteger("PlantsVsZombies", &H1923A0, {&H5578}, Sun, 1)
            WriteDMAInteger("PlantsVsZombies", &H19F9FC, {&H5578}, Sun, 1)
            WriteInteger("PlantsVsZombies", &H144E6040, Sun)
        End If
        F2 = GetAsyncKeyState(Keys.F2)

        If F2 = True Then
            WriteInteger("PlantsVsZombies", &H23A1A10, Coine)
            WriteDMAInteger("PlantsVsZombies", &H247A6DC, {&H50}, Sun, 1)
            WriteDMAInteger("PlantsVsZombies", &HDBA6DC, {&H50}, Sun, 1)
            WriteDMAInteger("PlantsVsZombies", &H2BA75C, {&H50}, Sun, 1)
            WriteDMAInteger("PlantsVsZombies", &H24BA75C, {&H50}, Sun, 1)

        End If
    End Sub
End Class

error will be in :

F1 = GetAsyncKeyState(Keys.F1)

message out for me when load the trainer :

Additional information: A call to PInvoke function 'Plant Vs Zombie!Plant_Vs_Zombie.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.

any new idea to make this trainer with out any error > and hotket work fine

[univex]

As the error states, your PInvoke declaration is probably wrong, look at it first.

[0theghost0]

cN YOU SHOW ME the right way ??