起動している ArcGIS Desktop アプリケーションの取得

Public Sub GetRunningApplications()
    Dim pAppROT As IAppROT
    Set pAppROT = New AppROT
     
    Dim pApp As IApplication
    Set pApp = pAppROT.Item(1)
     
    Debug.Print pApp.hWnd
 
End Sub