Const EM_GETPASSWORDCHAR = &HD2
Сообщение EM_GETPASSWORDCHAR идентифицирует замещающий символ в поле редактирования. Этот символ отображается вместо вводимых пользователем для скрытия текста. Обычно применяется для ввода паролей
Сообщение возвращает ASCII-код замещающего символа. Если в поле редактирования не используется замещающий символ, сообщение возвращает 0
' Определяем замещающий символ в TextBox ' Сначала установите на форме TextBox и присвойте ' свойству PasswordChar любое значение Dim retval As Long ' ASCII-код замещающего символа retval =SendMessage(Text1.hWnd, EM_GETPASSWORDCHAR, ByVal 0, ByVal 0) If retval > 0 Then Debug.Print "Замещающий символ "; Chr(retval) Else Debug.Print "Text1 не использует замещающий символ" End If