A.Private Sub Text1_ Change() Label1.Caption=Text1.TextEnd Sub B.Private Sub Text1_ Click() Label1.Caption=Text1.TextEnd Sub C.Private Sub Label1_ Change() Label1.Caption=Text1.TextEnd Sub D.Private Sub Label1_ Click() Label1.Caption=Text1.TextEnd Sub