Llamar form presionando F5

[zorrillafrancis]

Aqui esta todo.


Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
FuncKeysModule(e.KeyCode)
End Sub
Public Sub FuncKeysModule(ByVal value As Keys)
'Check what function key is in a pressed state, and then perform the corresponding action.
Select Case value
Case Keys.F1
'Add the code for the function key F1 here.
MessageBox.Show("F1 pressed")
Exit Select
Case Keys.F2
'Add the code for the function key F2 here.
MessageBox.Show("F2 pressed")
Exit Select
Case Keys.F3
'Add the code for the function key F3 here.
MessageBox.Show("F3 pressed")
Exit Select
Case Keys.F4
'Add the code for the function key F4 here.
MessageBox.Show("F4 pressed")
Exit Select
Case Keys.F5
'Add the code for the function key F5 here.
MessageBox.Show("F5 pressed")
Exit Select
Case Keys.F6
'Add the code for the function key F6 here.
MessageBox.Show("F6 pressed")
Exit Select
Case Keys.F7
'Add the code for the function key F7 here.
MessageBox.Show("F7 pressed")
Exit Select
Case Keys.F8
'Add the code for the function key F8 here.
MessageBox.Show("F8 pressed")
Exit Select
Case Keys.F9
'Add the code for the function key F9 here.
MessageBox.Show("F9 pressed")
Exit Select
Case Keys.F10
'Add the code for the function key F10 here.
MessageBox.Show("F10 pressed")
Exit Select
Case Keys.F11
'Add the code for the function key F11 here.
MessageBox.Show("F11 pressed")
Exit Select
Case Keys.F12
'Add the code for the key F12 here
MessageBox.Show("F12 pressed")
Exit Select
End Select
End Sub

Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click

End Sub