Torna al Thread
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