We tried the block reference property RecordGraphicsModified with openmode.forwrite, but it didn't work.
Now we uses a workaround regenerating the insert layer like this:
' uses the acmgdinternal.dll of AutoCAD root folder
Imports Autodesk.AutoCAD.Internal
Public Sub RegenLayer(ByVal Layername As String)
Dim LayerIDs(0) As ObjectId
'creates new layer if not exists with color mix red green and blue
Dim db As Database = Application.DocumentManager.MdiActiveDocument.Database
Dim tm As DBTransMan = db.TransactionManager
Dim ta As Transaction = tm.StartTransaction()
Dim LTR As LayerTable = CType(tm.GetObject(db.LayerTableId, OpenMode.ForRead, False), LayerTable)
'Check if Layer exists...
If LTR.Has(Layername) Then
LayerIDs(0) = LTR.Item(Layername)
Dim RegPen As Integer = LayerUtilities.RegenPending
LayerUtilities.RegenLayers(LayerIDs, RegPen)
ta.Commit()
End If
ta.Dispose()
tm.Dispose()
End Sub
It works!