Fu***** window caption !!!!!!

This is currently my code, but this is renaming my program window caption and i whant to change the othr prog. window caption.

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()
Dim W
    W = FindWindow(vbNullString, "Cheat 'O Matic")
    SetWindowText hwnd, ByVal "WON"
End Sub

numibesi