起動している 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