Titlebar (caption)

Is it possible to edit the statusbar (caption) of a running application through the API?

Code:

---


      Option Explicit
      Private Declare Function FindWindowEx Lib "User32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

      Private Declare Function SetWindowText Lib "User32" Alias "SetWindowTextA" (ByVal hWnd&, ByVal lpString$) As Boolean

      Function SetCaption(ByVal sWName As String) As Long
        Dim hWnd&
        hWnd = FindWindowEx(0&, 0&, vbNullString, sWName)
        If hWnd Then
          SetCaption = SetWindowText(hWnd, "Have a new caption why don't you..." & vbNullChar)
        Else
          SetCaption = 0
        End If
      End Function

Private Sub Command1_Click()
  If SetCaption("Api Viewer") Then
    MsgBox "Caption Changed"
  Else
    MsgBox "Caption not changed"
  End If
End Sub

---