Fensternamen ändern in Vb

Hey Leute kennt sich jemand mit Vb aus?
Ich hab jz nen Programm gescriptet wo den eigenen Fensternamen durch Buttons ändert der Befehl ist me.text= "Fenstername"
Wie kann ich es so machen das ich nen andren fensternamen ändern kann?Also ich meine z.b ich hab jz nen Programm offen das heißt Icq und das will ich in was anderes unbennen

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

Dim hWndDest As Long

Private Sub Command1_Click()
hWndDest = FindWindow(vbNullString, "FENSTERTITEL")
SetWindowText hWndDest, "NEUER FENSTERTITEL"
End Sub

Thx hat geholfen