Як в visual basic 6 занести інформацію в буфер обміну і вважати з нього?

Private Sub mnuCopy_Click ()

Clipboard.Clear

Clipboard.SetText Text1.SelText

End Sub

Private Sub mnuCut_Click ()

Clipboard.Clear

Clipboard.SetText Text1.SelText

Text1.SelText = ""

End Sub

Private Sub mnuPaste_Click ()

Text1.SelText = Clipboard.GetText ()

End Sub

Settext і Gettext, MSDN