Troubled with tabpages!!

'button click to create dynamically a textbox

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

'And here is the lostfocus event for the textbox that was created

Protected Sub copy(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim t As TextBox = sender
        MsgBox(t.Text)
End Sub

Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary

<Serializable()> Public Class SaveLoad

    Sub WriteFile(ByVal FileName As String, ByVal FileObject As Object)

        Dim ms As MemoryStream = New MemoryStream
        Dim bf As BinaryFormatter = New BinaryFormatter

        bf.Serialize(ms, FileObject)

        File.WriteAllBytes(FileName, ms.ToArray)

    End Sub

    Function ReadFile(ByVal FilePath As String) As Object

        Dim ms As MemoryStream = New MemoryStream(File.ReadAllBytes(FilePath))
        Dim bf As BinaryFormatter = New BinaryFormatter
        Dim FileObject As Object = DirectCast(bf.Deserialize(ms), Object)

        Return FileObject

    End Function

End Class