Как в 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