Private Sub Text1 Click() Label1.Caption=Len(Text1.Text) End Sub Private Sub Text1_Change() Label1.Caption=Str(Len (Text1.Text)) End Sub Private Sub Text1 Change() Label1.Caption=Str(Text1.Text) End Sub Private Sub Label1_Change() Label1.Caption=Str(Len(Text1.Text)) End Sub