Private Sub Button1_Click   'Liegt auf FormParent
        Dim frm As New FormChild
        Dim i As Integer = 1
        Do While i <= 3
            frm.TextBox.AppendText(Controls("frm.Label" & i).Text & vbCrLf)
            i = i + 1
        Loop
    End Sub