Public Function GetAsyncKeyPressed(ByVal key As Integer)
        Dim check1 As Boolean = False
        Dim check2 As Boolean = False
        If GetAsyncKeyState(key) Then
            check1 = True
            delayTime(0.001)
            check2 = GetAsyncKeyState(key)
            Return (check1 = Not check2)
        End If
        Return False
    End Function