Hi Tom,
Thanks for the solution for my first problem. It works perfectly!!
This is what i did (for all those who are haunted with this same problem)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim t As New TextBox
t.Location = New System.Drawing.Point(84, 56)
AddHandler t.LostFocus, AddressOf copy
Me.Controls.Add(t)
End Sub
Protected Sub copy(ByVal sender As Object, ByVal e As System.EventArgs)
Dim t As TextBox = sender
MsgBox(t.Text)
End Sub
Now I gotta work on the second problem!! Thank you ...by the way for pointing me in the right direction.