A.Private Sub Text1 Change() Label1.Caption=Text1.Text End Sub B.Private Sub Label1 Change() Label1.Caption=Text1.Text End Sub C.Private Sub Text1 Click() Label1.Capnon=Text1.text End Sub D.Private Sub Label1 Click() Label1.Caption=Text1.Text End sot