Private Sub Text1 Change()
Labe11.Caption=Str(Len(Text1.Text))
End Sub Private Sub Text1 Click()
Labe11.Caption=str(Len(Text1.Text))
End Sub Private Sub Text1 Change()
Labe11.Caption=Text1.Text
End Sub Private Sub Labe1 1_Change()
Labe11.Caption=Str(Len(Text1.Text))
End Sub