A.Private Sub Text1_Change() Labe11.Caption=Text1.Text End Sub
B.Private Sub Text1_Click() Labe11.Caption=Text1.Text End Sub
C.Private Sub Labe11_Change() Labe11.Caption=Text1.Text End Sub
D.Private Sub Labe11_Click() Labe11.Caption=Text1.Text End Sub