Get Sheetbody name of a Trimsheet Feature

Imports System
Imports NXOpen
 
Module NXJournal
Sub Main (ByVal args()AsString) 
Dim theSession As NXOpen.Session= NXOpen.Session.GetSession()Dim workPart As NXOpen.Part= theSession.Parts.Work 
Dim displayPart As NXOpen.Part= theSession.Parts.Display 
Dim markId1 As NXOpen.Session.UndoMarkId=Nothing
markId1 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "Start") 
Dim objects1(0)As NXOpen.NXObjectDim theUI As UI = UI.GetUI() 
objects1(0)=CType(theUI.SelectionManager.GetSelectedObject(0), NXOpen.Features.TrimSheet) 
Dim featureGeneralPropertiesBuilder1 As NXOpen.FeatureGeneralPropertiesBuilder=Nothing
featureGeneralPropertiesBuilder1 = workPart.PropertiesManager.CreateFeatureGeneralPropertiesBuilder(objects1) 
featureGeneralPropertiesBuilder1.FeatureName="Feature_p1" 
Dim nXObject1 As NXOpen.NXObject=Nothing
nXObject1 = featureGeneralPropertiesBuilder1.Commit() 
featureGeneralPropertiesBuilder1.Destroy() 
 
dim Sheetbodies()as NxOpen.Body=Nothing
Sheetbodies = objects1.GetBodies 
'Sheetbodies = objects1.GetBodies getting error here (unable to convert trimsheetto NxOpen Body. 
'Please help me to solve this. 
EndSubEndModule