A.Private Sub Text1 Change() Labe11.Caption=Str(Len(Text1.Text)) End Sub B.Private Sub Text1 Click() Labe11.Caption=str(Len(Text1.Text)) End Sub C.Private Sub Text1 Change() Labe11.Caption=Text1.Text End Sub D.Private Sub Labe1 1_Change() Labe11.Caption=Str(Len(Text1.Text)) End Sub