A. Private Sub Text1 Click() Labell.Caption=Text1.Text End Sub
B.Private Sub Text1_Change() Labell.Caption=Text1.Text End Sub
C.Private Sub Labell_Change() Labell.Caption=Text1.Text End Sub
D.Private Sub Labell_Click() Labell.Caption=Text1.Text End Sub