参考答案

Private Sub Text1_Change()
    P1.Print Text1.Text                    'Text1.Text前可以加Me或Form1
'或    Text1.Parent.P1.Print Text1.Text    Text1.Text前可以加Me或Form1
'或    Me.P1.Print Text1.Text              Text1.Text前可以加Me或Form1
'或    Form1.P1.Print Text1.Text            Text1.Text前可以加Me或Form1
End Sub