Добавь на форму текст-бокс и этот код: Private Sub Text1_Change() Form1.Caption = Len(Trim(Text1.Text)) - Len(Replace(Trim(Text1.Text), " ", "")) + 1 End Sub
На данном сайте используются файлы cookie, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших файлов cookie.