'Look! the method it's bring owls to Athens ~~~ Ha Ha ~~
Private Sub Form_Load()
Timer1.Interval = 1
Timer1.Enabled = True
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Text1_Change()
Dim s As String
s = "C:\"
Text2.Text = s & Text1.Text
End Sub
Private Sub Timer1_Timer()
Call Text1_Change
End Sub