Auto Copy and Paste

Hi,
how do I code the clipboard paste function?

I want to paste whatever is in the clipboard into a rich text box when i click on the text box (give it focus)...i am having troubles using the example code generated by the wizard.

also, another part of this, how do i copy into clipboard, whatever text is selected?...i have a text box that when clicked on a word, selects the whole word...i would like to have it copied into clipboard automatically.

can you help?

thanx in advance.

Private Sub Command1_Click()
If InStr(Text1.Text, "testing") Then
Clipboard.SetText "testing", vbCFText
End If

Text2.Text = Clipboard.GetText
End Sub

something like that ?

Yeah, thanx! I will try this out...

Private Sub Command1_Click()
If InStr(Text1.Text, "testing") Then
Clipboard.SetText "testing", vbCFText
End If

Text2.Text = Clipboard.GetText
End Sub

something like that ?

To put your selected text on the clipboard,

clipboard.SetText text1.SelText

Awsome! Thanx guys...it works!