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 Label1_Change() Labe11.Caption=Str(Len(Text1.Text)) End Sub