How can I get layer frozen of in the viewport

[Anonymous]

how can I get layer frozen of in the viewport?

my code is like:

Dim lay As AcadLayer

On Error Resume Next
Open "d:\layer.csv" For Output As #1
ThisDrawing.ActiveSpace = acPaperSpace
For Each lay In ThisDrawing.Layers
Dim str As String
str = lay.name & "," & lay.LayerOn & "," & lay.Freeze & "," & lay.ViewportDefault & "," & lay.Lock
Print #1, str
Next
Close #1

anyway I set the layer freeze for viewport TRUE or FALSE
and I always get FALSE

[Anonymous]

I know that：

Dim vpid As ObjectId = ed.CurrentViewportObjectId
If vpid.IsNull() Then
msg = "No Viewport current."
Else
msg = vpid.GetType().ToString   ' test to msg
End If
Dim oViewport As Viewport = tm.GetObject(vpid, OpenMode.ForWrite)
Dim objc As ObjectIdCollection = oViewport.GetFrozenLayers() 'get the layers