In program two just do something like this.

vb Code:
  1. Private Sub Form_Load()

  2.  
  3. SaveSetting App.EXEName, "Stuff", "Running", True

  4.  
  5. End Sub

  6.  
  7.  
  8. Private Sub Form_Unload(Cancel As Integer)

  9.  
  10. SaveSetting App.EXEName, "Stuff", "Running", False

  11.  
  12. End Sub

and in program 1

vb Code:
  1. Dim bIsExe2Running As Boolean

  2.  
  3. bIsExe2Running = GetSetting("<app 2 exe name>", "Suff", "Running", False)