Option Explicit
 
' Benötigte API-Funktionen
Private Declare Function FindWindow Lib "user32" _
  Alias "FindWindowA" ( _
  ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long
 
Private Declare Function SetWindowText Lib "user32" _
  Alias "SetWindowTextA" ( _
  ByVal hwnd As Long, _
  ByVal lpString As String) As Long

' Fenstertitel ändern
Dim nHWnd As Long
Dim sTitleOld As String
 
' Fensterhandle ermitteln
sTitleOld = "Unbenannt - Editor"
nHWnd = FindWindow(vbNullString, sTitleOld)
If nHWnd <> 0 Then
  ' Jetzt Titelzeile neu setzen
  SetWindowText nHWnd, sTitleOld & " - Irgendwas"
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de