Private Sub SOGGETTO_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode
            Case Keys.F
                'Premuto il tasto F
            Case Keys.D
                'Premuto il tasto D
            Case Keys.O
                'Premuto il tasto O
        End Select
    End Sub