Finding all programs that were opened

[si_the_geek]

Rather than detect all programs, I would recommend just checking the one that is currently being used.

To do that you can use the GetForeGroundWindow API (which returns the hWnd of the window that has focus):

Private Declare Function GetForegroundWindow Lib "user32" () As Long

...and GetWindowText should give you the title:

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

This is untested, but might work:

Dim lnghWnd as Long
Dim strText As String
  lnghWnd = GetForeGroundWindow 
  strText = String(500, Chr$(0))
  GetWindowText lnghWnd, strText, 500
  MsgBox strText