VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserForm1 
   Caption         =   "UserForm1"
   ClientHeight    =   7560
   ClientLeft      =   120
   ClientTop       =   465
   ClientWidth     =   6540
   OleObjectBlob   =   "UserForm1.frx":0000
   StartUpPosition =   1  'Fenstermitte
End
Attribute VB_Name = "UserForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ComboBox1_Change()
    If ThisDoc.Document.DocumentType = DocumentTypeEnum.kPartDocumentObject Or ThisDoc.Document.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
        Dim oBOMStructure As BOMStructureEnum = ThisDoc.Document.ComponentDefinition.BOMStructure
        Select Case oBOMStructure
            Case BOMStructureEnum.kNormalBOMStructure
                Logger.Info ("BOMStructure: " & "Normal")
            Case BOMStructureEnum.kInseparableBOMStructure
                Logger.Info ("BOMStructure: " & "Unteilbar")
            Case BOMStructureEnum.kPhantomBOMStructure
                Logger.Info ("BOMStructure: " & "Phantom")
                i = MessageBox.Show(ThisDoc.FileName(True) & " ist Phantom", "Stücklistenstruktur", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)
    
            Case BOMStructureEnum.kPurchasedBOMStructure
                Logger.Info ("BOMStructure: " & "Gekauft")
            Case BOMStructureEnum.kReferenceBOMStructure
                Logger.Info ("BOMStructure: " & "Referenz")
            Case Else
                Logger.Info ("BOMStructure: " & "Unbekannt")
        End Select
    End If
End Sub