Формаға мәтін жазу  үшін  Тext1 компонеттін орналастырып, оның Тext қасиеттіне

«Электронды есептеу машиналарының операторы» мәнің береміз. Жұмыс жасау процедурасын шақыру үшін Command Button элементін 3 рет таңдап,  Command1 - Caption қасиетіне «Cut», Command2 - Caption қасиетіне «Copy», Command3 - Caption қасиетіне «Paste»

мәндерін береміз.Нәтижесінде мынадай форма аламыз.

Private Sub Cut_Click()

'буферге "Кию" емес,салу командасы берілді

'енді кошіргенді жою керекпіз

' жою немесе кию кезінде аркашан ерекшелеу керекпіз

'Text1.SelText функция ерекшеленген матінді кайтарады,ягни

'буферге ерекшеленгенді салады

Clipboard.SetText Text1.SelText

'енді ерекшелінген матіндік фрагмент жойылады

Text1.SelText = ""

End Sub