VB.NETでAutoCADに連携する方法で困っています。
起動中のAutoCADに複数のドキュメント(ファイル)が開いているとします。
ファイルタブが複数あって、これをクリックして切り替えるたびに発生する
イベントを捉えてリストボックスにレイヤーのリストを表示させたいです。

ファイルタブの切り替えを捉えるのにどの様に記述すればよいか困っています。
コードの40行目あたりの
 Dim docManager As DocumentCollection = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager
 AddHandler docManager.DocumentActivated, AddressOf Me.DocumentActivated
ここで引っ掛かってしまいます。

現在のコード
Imports System.Runtime.InteropServices
Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.Geometry
Imports Microsoft.VisualBasic

Public Class Form1
    Private acadApp As AcadApplication

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            ' 新しいAutoCADアプリケーションを作成
            acadApp = New AcadApplication()
            acadApp.Visible = True
        Catch ex As System.Runtime.InteropServices.COMException
            MessageBox.Show("AutoCADのインスタンスを作成できませんでした: " & ex.Message)
            Return
        Catch ex As Exception
            MessageBox.Show("予期しないエラーが発生しました: " & ex.Message)
            Return
        End Try

        If acadApp Is Nothing Then
            MessageBox.Show("AutoCADアプリケーションを初期化できませんでした。")
            Return
        End If

        ' AutoCADのウィンドウをForm1の指定位置に埋め込む
        Dim acadHandle As IntPtr = New IntPtr(acadApp.HWND)
        SetParent(acadHandle, Me.Handle)

        ' 初期位置とサイズを設定
        ResizeAutoCADWindow()

        ' Form1のリサイズイベントにハンドラを追加
        AddHandler Me.Resize, AddressOf Form1_Resize

        ' 初回のレイヤーリストを取得して表示
        PopulateLayerList()

        ' ドキュメントアクティベートイベントの追加
        Dim docManager As DocumentCollection = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager
        AddHandler docManager.DocumentActivated, AddressOf Me.DocumentActivated
    End Sub

    Private Sub Form1_Resize(sender As Object, e As EventArgs)
        ' AutoCADウィンドウをForm1の新しいサイズに合わせてリサイズ
        ResizeAutoCADWindow()
    End Sub

    Private Sub ResizeAutoCADWindow()
        Dim acadHandle As IntPtr = New IntPtr(acadApp.HWND)

        ' panelControlsの右側にAutoCADウィンドウを表示する
        Dim leftPosition As Integer = panelControls.Width
        Dim topPosition As Integer = 0
        Dim width As Integer = Me.ClientSize.Width - panelControls.Width
        Dim height As Integer = Me.ClientSize.Height

        MoveWindow(acadHandle, leftPosition, topPosition, width, height, True)
    End Sub

    Private Sub PopulateLayerList()
        Try
            ' Layer_LBをクリア
            If Layer_LB Is Nothing Then
                MessageBox.Show("Layer_LBが初期化されていません。")
                Return
            End If
            Layer_LB.Items.Clear()

            ' AutoCADの現在のドキュメントを取得
            Dim activeDoc As AcadDocument = acadApp.ActiveDocument

            ' レイヤーを取得してリストボックスに追加
            For Each layer As AcadLayer In activeDoc.Layers
                Layer_LB.Items.Add(layer.Name)
            Next
        Catch ex As Exception
            MessageBox.Show("レイヤーリストの取得中にエラーが発生しました: " & ex.Message)
        End Try
    End Sub

    ' ドキュメントがアクティブになったときにレイヤーリストを更新する
    Private Sub DocumentActivated(sender As Object, e As DocumentCollectionEventArgs)
        PopulateLayerList()
    End Sub

    ' WinAPI関数の宣言
    <System.Runtime.InteropServices.DllImport("user32.dll")>
    Private Shared Function SetParent(hWndChild As IntPtr, hWndNewParent As IntPtr) As IntPtr
    End Function

    <System.Runtime.InteropServices.DllImport("user32.dll")>
    Private Shared Function MoveWindow(hWnd As IntPtr, x As Integer, y As Integer, nWidth As Integer, nHeight As Integer, bRepaint As Boolean) As Boolean
    End Function

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        ' AutoCADアプリケーションをクリーンアップ
        If acadApp IsNot Nothing Then
            Try
                acadApp.Quit()
            Catch ex As Exception
                ' 例外が発生しても続行
            Finally
                ' COMオブジェクトの解放
                Marshal.ReleaseComObject(acadApp)
                acadApp = Nothing
            End Try
        End If

        ' ドキュメントアクティベートイベントの削除
        Dim docManager As DocumentCollection = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager
        RemoveHandler docManager.DocumentActivated, AddressOf Me.DocumentActivated
    End Sub
End Class

ここまでフォーム上にAutoCADを埋め込み表示させるまでできましたが
肝心のAutoCADの変化を捉える部分でうまくいきません。
よろしくお願いします。

ごぶさたしております。
今回はプログラミングに関係ない話になってしまいますが
情報が見つからず藁をも掴む思いで質問させていただきます。

■環境
Windows 11 Pro 21H2
C   … NVMe SSD 256 GB
D   … SATA HDD 1000 GB
Mem … 16 GB

■実施した内容と発生した現象
Visual Studio をはじめとした、一部ファイルが C に強制的に入るソフトウェアを
多数インストールしているため C の空き領域が足りなくなり、
ページングを D に移行しようとしました。

仮想メモリ設定で
  C … ページングなし
  D … 8192 -8192 MB
にしましたが、再起動後に構成エラーとなり再設定を促されました。
そこで次に
  C … 1024 - 1024 MB
  D … 8192 - 8192 MB
としたらエラーは起きなくなったのですが、パフォーマンスオプション画面の
仮想メモリ欄を見ると「すべてのドライブの総ページングファイルサイズ」が
1024 MB になっており、D から pagefile.sys が消えていました。
（しかし仮想メモリ設定画面の D には 8192 - 8192 と設定されたまま）

何度設定しても、たまに D の pagefile.sys が残ったまま消えないことが
ありつつも OS の認識としては C のページングのみとなっています。

USBメモリにページング設定した場合は認識タイミングによってそういったことが起こるようですが
SATA接続のHDDでそれが起きるのは何故でしょうか
そして解決する手段は存在するのでしょうか…

以上よろしくお願いします