Const EM_SETPASSWORDCHAR = &HCC
Сообщение EM_SETPASSWORDCHAR устанавливает замещающий символ в полях редактирования. Этот символ отображается вместо вводимых пользователем для скрытия текста. Обычно применяется для ввода паролей
' Установим новый замещающий символ "*"в TextBox ' Сначала установите на форме TextBox и присвойте ' свойству PasswordChar любое значение Dim retval As Long ' неиспользуемое возвращаемое значение retval = SendMessage(Text1.hWnd, EM_SETPASSWORDCHAR, ByVal CLng(Asc("*")), ByVal 0)