CapKeyFunction
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) 'tasto F3 If KeyCode = vbKeyF3 And Shift = 0 Then ....... MyCode ....... End If End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
'tasto F3
If KeyCode = vbKeyF3 And Shift = 0 Then
.......
MyCode
.......
End If
End Sub
(capkeyfunction.html)- by Paolo Puglisi - Modifica del 25/3/2019