'Editor de texto: (I Parte)

'Seleccionar todo el texto:
    Text1.SetFocus
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)

'Copiar texto:
    Clipboard.Clear
    Clipboard.SetText Text1.SelText
    Text1.SetFocus

'Pegar texto:
    Text1.SelText = Clipboard.GetText()
    Text1.SetFocus

'Cortar texto:
    Clipboard.SetText Text1.SelText
    Text1.SelText = ""
    Text1.SetFocus