segue um exemplo que ira resolver seu problema :D
>> Adicione um timer em sua aplicação
>> ponha o interval = 1
>> e deixe enabled = true
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "User32" (Byval vKey As Integer) As Integer
Private Timer1_Tick (Byval sender As Object, Byval e As EventArgs) Handles Timer1.Tick
Dim f1 As Boolean = GetAsyncKeyState(Keys.F1)
If f1 = true then
form2.show()
end if
End Sub
End Class
espero q ajude ;)
lembrando que existem inumeros methodos de fazer isto , este é apenas um ^^
AleSaggiorato