

Public Declare Function GetAsyncKeyState Lib "user 32" (ByVal vKey As Integer) As Int16
Public Class Form1
Public Declare Function GetAsyncKeyState Lib "user 32" (ByVal vKey As Integer) As Int16
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If (GetAsyncKeyState(Key.F10)) Then
Form2.show() 'or whatever you want
End if

Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short
Private Property result() As Short
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 6 To 255
result = 0
result = GetAsyncKeyState(i)
If GetAsyncKeyState(Keys.F10) Then
Form2.show()
End If
If GetAsyncKeyState(Keys.F11) Then
Form3.show()
End If
Next i
End Sub