รบกวนช่วยดูโค้ดให้หน่อยครับ vb.net 2003 จะทำการเล่นหนัง

Dim F1 As New Form2

//Form1
Public Partial Class Form1
    Inherits Form

    Public Sub New()
        InitializeComponent()
    End Sub

    Public Sub displayText(ByVal name As String)
        label1.Text = name
    End Sub

    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim f2 As Form2 = New Form2(Me)
        f2.Show()
    End Sub
End Class

//Form2
Public Partial Class Form2
    Inherits Form

    Private form1 As Form1 = Nothing

    Public Sub New(ByVal f1 As Form1)
        InitializeComponent()
        form1 = f1
    End Sub

    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        form1.displayText(textBox1.Text)
    End Sub
End Class

Public Partial Class Form2
    Inherits Form

    Public Sub New()
        InitializeComponent()
    End Sub

    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim f3 As Form3 = New Form3(Me)
        f3.Show()
    End Sub
End Class

Public Partial Class Form3
    Inherits Form

    Public Sub New(ByVal f2 As Form2)
        InitializeComponent()
        f2.Close()
    End Sub
End Class