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