PUBLIC CLASS TopVaultNode INHERITS TreeNode PUBLIC Type AS STRING PUBLIC NodeId AS GUID PUBLIC ParentId AS GUID PUBLIC Description AS STRING PUBLIC UserRights AS INTEGER SUB NEW(ByVal XType AS STRING, byval XNodeId AS GUID, XParentID AS Guid, ByVal XDescription As String, XUserRights AS INTEGER) MYBASE.NEW() ME.Type = XType ME.NodeId = XNodeId ME.ParentId = XParentId ME.Description = XDescription ME.UserRights = XUserRights ME.ImageIndex = NodeColorsAndIndexs.imageindexes.VAULT ME.SelectedImageIndex = NodeColorsAndIndexs.SelectedImageIndexes.VAULT ME.ForeColor = Color.Black ME.Text = Trim(ME.Description) END SUB END CLASS