Копирование текста из одного текстового окна в другое - VB

Формулировка задачи:

Как написать процедуру обработки события нажатия кнопки, которая реализует действия: копирование текста из одного текстового окна в другое через буфер обмена?

Решение задачи: «Копирование текста из одного текстового окна в другое»

textual
                            Листинг программы 
                        

                            Private Sub Command2_Click()
Clipboard.Clear
Text1.SetFocus
If TypeOf Screen.ActiveControl Is TextBox Then
Clipboard.SetText Screen.ActiveControl.SelText 'копировать выделенный
'Clipboard.SetText Screen.ActiveControl.Text'копировать весь
End If
Text2.SetFocus
If Clipboard.GetFormat(vbCFText) Then
Screen.ActiveControl.SelText = Clipboard.GetText 'вставить вместо выделенного
'Screen.ActiveControl.Text = Clipboard.GetText'заменить полностью
End If
'Clipboard.Clear 'если нужно
End Sub
                        