Private Sub SOGGETTO_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Dim tx As String
        Select Case e.KeyCode
            Case Keys.Enter




            Case Keys.Escape
                If IDins.Text = 1 Then
                    Dim result As DialogResult
                    result = MessageBox.Show("message", "caption", MessageBoxButtons.YesNo)
                    If result = DialogResult.No Then
                        Exit Sub
                    ElseIf result = DialogResult.Yes Then
                        Me.Close()
                    End If
                Else
                    Me.Close()
                End If

            Case Keys.O
                'Premuto il tasto O
        End Select