Yes, you are absolutely right. Here is the code that worked for me just in case somebody runs across the same issue. Thanks again Mark!
I hope the copy and paste works ok, though
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.LayerManager
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Colors
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.GraphicsInterface
Imports System.Runtime.InteropServices
Imports Autodesk.AutoCAD.Interop
Imports Autodesk.AutoCAD.Interop.Common
Imports AcadCOMintf = Autodesk.AutoCAD.ApplicationServices.Application
Inherits System.Windows.Forms.Form
Public AcadApp As AcadApplication
Public AcadDoc As AcadDocument
Public Shared oAcadCOMApp As Autodesk.AutoCAD.Interop.AcadApplication = CType(AcadCOMintf.AcadApplication, AcadApplication)
Private Sub ListLayerStates()
Try
Dim oAcadCOMDoc As Autodesk.AutoCAD.Interop.AcadDocument
oAcadCOMDoc = oAcadCOMApp.ActiveDocument
Dim lsDict As AcadDictionary = oAcadCOMDoc.Layers.GetExtensionDictionary.Item("ACAD_LAYERSTATES")
Dim Xrec As AcadXRecord
For Each Xrec In lsDict
lstLayerStates.Items.Add(Xrec.Name)
Next
Catch acadex As Autodesk.AutoCAD.Runtime.Exception
MsgBox(acadex.Message)
End Try
End Sub