Option Strict Off
Imports System
Imports NXOpen
Module NXJournal
    Sub Main (ByVal args() As String) 
        Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
        Dim child As Assemblies.Component
        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open
        For Each child In workPart.ComponentAssembly.RootComponent.GetChildren()
            lw.WriteLine(child.GetStringAttribute("DB_PART_NO"))
        Next
        
    End Sub
End Module