Select all button in block styler dialog

    Public Function update_cb(ByVal block As NXOpen.BlockStyler.UIBlock) As Integer
        Try
            Dim theWorkPart As Part = theSession.Parts.Work
            Dim theUfSession As UFSession = UFSession.GetUFSession
            Dim curDrg As Drawings.DrawingSheet = theWorkPart.DrawingSheets.CurrentDrawingSheet
            Dim drfViews As Drawings.DraftingView() = curDrg.SheetDraftingViews.ToArray()
 
            If block Is selectNotes Then
                '---- Enter your code here -----
 
            ElseIf block Is selectAllNotes Then
 
                Dim visibleObjects() As DisplayableObject
                visibleObjects = theWorkPart.Views.WorkView.AskVisibleObjects
 
                For Each memView As Drawings.DraftingView In drfViews
                    Dim dispObjs As DisplayableObject() = theWorkPart.Views.WorkView.AskVisibleObjects()
 
                    For Each aDispObj As DisplayableObject In dispObjs
 
                        If TypeOf aDispObj Is Annotations.Note Then
 
                            If aDispObj.Layer = 41 Then
 
                                selectNotes.SetSelectedObjects(aDispObj)
                            End If
                        End If
                    Next
                Next