Private Sub Text1_ Change() Label1.Caption =Str (Len(Text1.Tex)End Sub Private Sub Text1_ Click() Label1.Caption=Str(Len(Text1.Tex)End Sub Private Sub Text1_ Change() LabelCaption =Text1.TextEnd Sub Private Sub Label1_ Change() LabelCaption=Str(Len(Text 1. Tex)End Sub