How to auto copy selected text

This is very simple to do. I decided to post this here due to the e-mails I've been getting about it.
(PUT THIS CODE INTO A MENU ITEM)

Code:

---

Dim temp as String
Text1.SetFocus
If Text1.Text = "" Then
Msg ("There was nothing to select.")
Else
temp = Len(Text1.Text)
Text1.SelStart = 0
Text1.SelLength = temp
Clipboard.SetText Text1.SelText
Text1.SelStart = 0
Text1.SelLength = 0
Msg ("All of the Text Has Been Copied...")
End If

---

I used this in my menu for an auto select/copy in one.
the Msg("text") you see is because I put in my programs A blank form that you can put info in for confirmation a way to do this is to make a form then put a label in the middle and leave it blank. then go into a module of whereever you want and put this in.

Code:

---

Function Msg(txt As String)
msgform.Label1.Caption = txt
msgform.Show 1
End Function

---

Now I'm going to show you how to auto copy on select
In my program X-Base there is a check box in options and if the value is checked then autocopy is turned on. here's how you do it.
(PUT THIS IN THE MOUSE UP PLACE)

Code:

---

Dim leng As String
leng = Len(Text1.SelText)
If Text1.SelText = "" Then
Else
If options.Check1.Value = 1 Then
Clipboard.Clear
Clipboard.SetText Text1.SelText
End If
End If

---

I hope this helps post and let me know what you think or if you can improve on the code. :)

www.dotslashproductions.tk