هل هذا البرنامج قد اكمل التنفيذ

Declare Function FindWindow Lib "user32" Alias _
      "FindWindowA" (ByVal lpClassName As String, _
      ByVal lpWindowName As String) As Long

Declare Function PostMessage Lib "user32" Alias _
      "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
      ByVal wParam As Long, lParam As Any) As Long

ثم ضع Timer وضع في الحدث الخاص به :

Dim PrgHwnd As Long
PrgHwnd = FindWindow(vbNullString, "MyProgram")
If PrgHwnd = 0 Then
    MsgBox MyProgram & " is Over"
   timer1.enabled = false
End If

شكرا لك اخي مهند

عفوا لقد تأخرت في الرد لاني لم اقم بتجربة الكود

على العموم لقد جربت الكود والعملية تمت بنجاح

ايظا هذا الكود يعمل حتى لو كانت النافذة في وضع مخفي

واخيرا جزاك الله خيرا