Const WM_SETTEXT = &HC
Посылка сообщения WM_SETTEXT к окну устанавливает текст того окна. Для обычных окон, это текст, который появляется в области заголовка
При посылке сообщения WM_SETTEXT, выражение ByVal CLng(0) должно использоваться для параметра wParam.Вдобавок, ключевое слово ByVal также должно использоваться при передаче строки в качестве параметра lParam
' Установим заголовок окна Form1 в "Русский_Проект" ' Сделаем это, посылая соответствующее сообщение окну Dim wintext As String ' строка для заголовка Dim retval As Long ' возвращаемое значение wintext = "Русский_Проект" ' Пошлем сообщение окну Form1 для установки нашего текста в заголовке retval = SendMessage(Form1.hWnd, WM_SETTEXT, ByVal CLng(0), ByVal wintext)