Private Sub Text1_click()

SendKeys "CoderProfile Rules"

End Sub

 

'When you click on text1, it will send the keys "CoderProfile Rules to the textbox.

'This function can be used in conjunction with the "GetASyncKeyState" Function in another of my code snippets,

'to send the selected keys to a different window, a good example of this is,

 

'If GetAsyncKeyState(vbKeyF1) Then

' SendKeys Text1.Text

' SendKeys {"Enter"}

'End If

 

'This code can be used to send the text in the textbox (user selected text) to a program like msn,

'used as an "auto - talker"

 

 

'Alin Coop 2008