Povezivanje 2 text boxa

Code:

Private Sub mnuWordwrap_clicked()
text1.text = text3.text
End Sub

Code:

Dim WordWrap As Boolean 'deklaracija na vrhu forme
Sub mnuWordWrap_Click()
  WordWrap = Not WordWrap
  mnuWordWrap.Checked = WordWrap
  
   Text1.Visible = WordWrap'Text1 ima samo Horisontal slider
   Text2.Visible = Not WordWrap 'Text2 ima Both
End Sub

Code:

Private Sub mnuFileOpen_Click()
    CommonDialog1.CancelError = True
On Error GoTo ErrHandler 'Prilikom greske prelazi na ErrHandler: deo koda...
    CommonDialog1.Filter = "All Files (*.*)|*.*|" & _
    "Text Files (*.txt)|*.txt|" & _
    "Batch Files (*.bat)|*.bat|" & _
    "Web Page (*.htm)|*.htm|" & _
    "Rich Text Format (*.rtf)|*.rtf"
    CommonDialog1.FilterIndex = 1 'Filter odlucuje koji ce file moci da bude otvoren, neki tipovi filea ne mogu da rade bez pozivanja .dll fajlova i slicnog
    CommonDialog1.ShowOpen
    strFileName = CommonDialog1.FileName
    Open strFileName For Input As #1
    Text3.Text = Input(LOF(1), 1)
    Close #1
Exit Sub
ErrHandler:
End Sub

Private Sub mnuFileSave_Click()
    If strFileName <> "" Then   'proverava da li je fajl vec sniman
        Open strFileName For Output As #1
        Print #1, Text3.Text   'izbacuje sadrzaj text1 tekst boxa u fajl
        Close #1
    Else
        Call mnuFileSaveAs_Click 'Ukoliko fajl vec nije snimljen poziva se Save As funkcija i preko nje se snima, naravno ukoliko nemate Save As ni ovaj deo koda nece raditi.
    End If
End Sub

Private Sub mnuFileSaveAs_Click()
    CommonDialog1.CancelError = True
 On Error GoTo ErrHandler
    CommonDialog1.Filter = "Text Files (*.txt)|*.txt|" & _
    "Batch Files (*.bat)|*.bat|" & _
    "Web Page (*.htm*)|*.htm*|" & _
    "Rich Text Format (*.rtf)|" & _
    CommonDialog1.FilterIndex = 1 'Filteri koji su iznad odlucuju tip fajla koji snimamo
    CommonDialog1.ShowSave
    strFileName = CommonDialog1.FileName
    Open strFileName For Output As #1
    Print #1, Text3.Text
    Close #1
Exit Sub
ErrHandler:
End Sub