Private Sub Formciao_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
        Dim oggetto As Form.ControlAccessibleObject
        Dim text As TextBox
        '
        oggetto = Me.ActiveControl.AccessibilityObject
        '
        If oggetto.Role = Windows.Forms.AccessibleRole.Text Then
            If e.Control = True Then
                text = Me.ActiveControl
                Select Case e.KeyValue
                    Case 90 'Control + Z
                        text.Undo()
                    Case 67 'Control + C
                        text.Copy()
                    Case 86 'Control + V
                        text.Paste()
                    Case 88 'Control + X
                        text.Cut()
                End Select
            End If
        End If
    End Sub