[MarioRainer]

Hello,

is the any kind to use the Freeze Layer Command (Avax.Command = 94)
without to get the Property Window?

Thanx
MarioRainer

[Athanasios Gardos]

Here it is a VB6 example:

Option Explicit

Private Sub Command1_Click()
    Dim sLayerNames() As String, iLayerStatus() As Integer
    Dim lMax As Long
    lMax = cAvax1.GetLayers(sLayerNames(), iLayerStatus())
    iLayerStatus(1) = iLayerStatus(1) Or 1 '(Or 1 : frozen / Or 2 : Locked / Or 4 : NonPrintable)
    Call cAvax1.SetLayers(sLayerNames(), iLayerStatus())
End Sub

Private Sub Form_Load()
    Dim iLayer As Integer
    Command1.Caption = "Freeze layer 1"
    Call cAvax1.StartAvax
    iLayer = 0
    Call cAvax1.Add_Text("Layer 0", 0, 0, 0, , 10, , , , , , iLayer)
    iLayer = 1
    Call cAvax1.Add_Text("Layer 1", 0, 5, 0, , 10, , , , , , iLayer)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Call cAvax1.EndAvax
End Sub

[MarioRainer]

thanx

it`s great