Option Explicit
 
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
 
Private Sub Command1_Click()
' Starte "Notepad", den Windows-Standard-Editor...
    Shell "notepad.exe", 1
' Setze eine eigene Titelleistenbeschriftung
    SetWindowText FindWindow(vbNullString, "Unbenannt - Editor"), _
    "This is cracked by me..."
End Sub