Seleccionar texto en tiempo de ejecución

[Karolineta]

Hola a todos.
Espero que alguien me pueda dar información respecto acomo seleccionar texto en tiempo de ejecución de una apicación, pero utilizando el ratón. Es decir, que a lo que tenga una cadena en la pantalla ppal, pueda selecionar con el ratón un trozo de texto que dicha cadena. Y seguidamente referenciar ese trozo a una variable.
Le agradezco sinceramente a quien me pueda dar buena info al respecto.

[Skalitiko]

Espero te sirva de algo.

Private TSel As String
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
If Text1.SelLength > 0 Then
TSel = Texto
MsgBox TSel
End If
End If
End Sub
Private Function Texto() As String
Dim a As String
For i = Text1.SelStart + 1 To (Text1.SelStart + Text1.SelLength)
a = a & Mid(Text1, i, 1)
Next i
Texto = a
End Function