Try this one
Public Shared Sub GetTableStyles()
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim db As Database = doc.Database
Dim did As ObjectId = ObjectId.Null
Using tr As Transaction = db.TransactionManager.StartTransaction
Try
Dim nod As DBDictionary = CType(tr.GetObject(db.NamedObjectsDictionaryId, OpenMode.ForRead), DBDictionary)
did = nod.GetAt("ACAD_TABLESTYLE")
Dim tdic As DBDictionary = CType(tr.GetObject(did, OpenMode.ForRead), DBDictionary)
For Each eDict As DictionaryEntry In tdic
If eDict.Key <> "" Then
MsgBox(eDict.Key)
End If
Next
Catch ex As System.Exception
MsgBox(ex.StackTrace)
End Try
End Using
End Sub
~'J'~