IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
 

 

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyF1 Then MsgBox "F1 Tusuna Basıldı"

If KeyCode = vbKeyF2 Then MsgBox "F2 Tusuna Basıldı"

If KeyCode = vbKeyF3 Then MsgBox "F3 Tusuna Basıldı"

If KeyCode = vbKeyF4 Then MsgBox "F4 Tusuna Basıldı"

If KeyCode = vbKeyF5 Then MsgBox "F5 Tusuna Basıldı"

If KeyCode = vbKeyF6 Then MsgBox "F6 Tusuna Basıldı"

If KeyCode = vbKeyF7 Then MsgBox "F7 Tusuna Basıldı"

If KeyCode = vbKeyF8 Then MsgBox "F8 Tusuna Basıldı"

If KeyCode = vbKeyF9 Then MsgBox "F9 Tusuna Basıldı"

If KeyCode = vbKeyF10 Then MsgBox "f10 Tusuna Basıldı"

If KeyCode = vbKeyF11 Then MsgBox "F11 Tusuna Basıldı"

If KeyCode = vbKeyF12 Then MsgBox "F12 Tusuna Basıldı"

End Sub