Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" ( _
ByVal hwnd As Long, _
ByVal lpString As String) As Long
SetWindowText изменяет текст для заданного окна.
' Устанавливаем новый заголовок для окна Form1
SetWindowText Form1.hWnd, "Русский_Проект"