Public Property MarkChildMode As Boolean

Attribute VB_Name = "mainMod"
Global gPCDApp As PCDLRN.Application
Global gPCDPart As PCDLRN.PartProgram
Public Sub Main()
    Set gPCDApp = CreateObject("PCDLRN.Application")
    
    If (Not gPCDApp Is Nothing) Then
        Set gPCDPart = gPCDApp.ActivePartProgram
        
        If (Not gPCDPart Is Nothing) Then
            Debug.Print gPCDPart.MarkChildMode, gPCDPart.MarkParentMode, gPCDPart.MarkNewAlignmentMode
            
            gPCDPart.MarkChildMode = Not gPCDPart.MarkChildMode
            gPCDPart.MarkParentMode = Not gPCDPart.MarkParentMode
            
            If (gPCDPart.MarkNewAlignmentMode = ENUM_MARK_NEW_ALIGNMENT_MODE.NEWALIGN) Then
                gPCDPart.MarkNewAlignmentMode = ENUM_MARK_NEW_ALIGNMENT_MODE.SAMEALIGN
            Else
                gPCDPart.MarkNewAlignmentMode = ENUM_MARK_NEW_ALIGNMENT_MODE.NEWALIGN
            End If
            
            Set gPCDPart = Nothing
        End If
        
        Set gPCDApp = Nothing
    End If
    
End Sub