A.Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub
B.Private Sub Label 1_Change() Label1.Caption=Text1.Text End Sub
C.Private Sub Text1_Click() Label1.Caption=Text1.text End Sub
D.Private Sub Label1_Click( ) Label1.Caption=Text1.Text End sot