Источник: o-stchat
| Текст модуля: |
Option Compare Database
Option Explicit
' изменение заголовка
Declare Function SetWindowText Lib "user32.dll" Alias "SetWindowTextA" _
(ByVal hWnd As Long, ByVal lpString As String) As Long
| Обращение к функции: |
Dim retval As Long
retval = SetWindowText(Form_МТ_300_9005.hWnd, "Привет!")