A.Private Sub Text1_Change()Label1.Caption=Str(Len(Text1.Text))End Sub B.Private Sub Text1_Click()Label1.Caption=str(Len(Text1.Text))End Sub C.Private sub Text1_Change()Label1.Caption=Text1.TextEnd Sub D.Private Sub Label1_Change()Label1.Caption=Str(Len(Text1.Text))End Sub