Private Function EnumWindowsProc(ByVal app_hwnd As Long, _
 ByVal lParam As Long) As Boolean
' Return False to stop the enumeration.
 
  Dim buf As String * 256
  Dim title As String
  Dim length As Long

  ' Get the window's title.
  length = GetWindowText(app_hwnd, buf, Len(buf))
  title = Left$(buf, length)
  If lParam = 1 Then 'конкретное окно "MyProgaTitle"
    If title = "MyProgaTitle" Then
      hwndEnumTarget = app_hwnd
      EnumWindowsProc = False ' Save the hwnd and end the enumeration
      Exit Function
    End If
  End If
  
  EnumWindowsProc = True ' Continue the enumeration (default)
End Function

BOOL CALLBACK EnumWindowsProc(HWND hwnd, LPARAM lParam)
{
  // Return FALSE to stop the enumeration.

  char title[256];
  GetWindowText(hwnd,title,sizeof(title));
  if (lParam == 1) {
    if (title == "MyProgaTitle"){
      hwndEnumTarget = hwnd;
      return FALSE;
    }
  }

  return TRUE;
}

HWND hwndTarget = FindWindow(NULL,"MyProgaTitle");

  If lParam = 1 Then 'конкретное окно WINDOWTITLE_SERVER
    If title = WINDOWTITLE_SERVER Then
      hwndTemp = FindWindowEx(app_hwnd, 0&, vbNullString, WINDOWTITLE_SERVER_CHILD)
      If hwndTemp <> 0 Then
        hwndEnumTarget = app_hwnd
        EnumWindowsProc = False ' Save the hwnd and end the enumeration
        Exit Function
      End If
    End If
  End If

    if (strcmp(title,"MyProgaTitle")){

    if (strstr(title,"MyProgaTitle")){

    if (strstr(title,"MyProgaTit")){

HWND hwndEnumTarget;
HWND FindMyWindow(LPARAM lParam);
BOOL CALLBACK EnumWindowsProc(HWND hwnd, LPARAM lParam);

...
HWND hwndTarget = FindMyWindow(1); //1 - MyProgaTitle
...

HWND FindMyWindow(LPARAM window_id)
{
  hwndEnumTarget = 0;
  EnumWindows(EnumWindowsProc, window_id); //window_id: 1-MyProgaTitle
  return hwndEnumTarget;
}

BOOL CALLBACK EnumWindowsProc(HWND hwnd, LPARAM lParam)
{
  // Return FALSE to stop the enumeration.

  char title[256];
  HWND hwndTemp;

  GetWindowText(hwnd,title,sizeof(title));
  if (lParam == 1) { //конкретное окно MyProgaTitle
    if (strcmp(title,"MyProgaTitle")==0){
      hwndTemp = FindWindowEx(hwnd, NULL, NULL, "MyProgaTitle mnbvcxz");
      if (hwndTemp!=0){
        hwndEnumTarget = hwnd;
        return FALSE;
      }
    }
  }

  return TRUE;
}