Move body from selected CSYS to Absolute CSYS

I am new to journal developing and i need some help. The concept is that the user selects a body and a CSYS and the journal computes the body dimensions(X, Y, Z) and the Xmin, Xmax, Ymin, Ymax, Zmin, Zmax values from the selected CSYS. First i have to move the body from CSYS to ABS and then make the calculations to extract the values, but i cant find the command or the syntax...

i have made this so far (with a lot of help)... but i have errors.. Can somebody help me?

Option Strict Off
Imports System
Imports System.Collections.Generic
Imports NXOpen
Imports NXOpen.UF

Module Module1

Dim theSession As Session = Session.GetSession()
Dim theUfSession As UFSession = UFSession.GetUFSession()
Dim lw As ListingWindow = theSession.ListingWindow

Sub Main()

lw.Open()
Dim workPart As Part = theSession.Parts.Work

' === Select solid body ===
Dim solid1 As Body
If SelectSolid("Select solid", solid1) = Selection.Response.Cancel Then
Return
End If

' === Select CSYS ===
Dim myCsys As CoordinateSystem = Nothing
If SelectCSYS("Select a Cartesian CSYS feature", myCsys) = Selection.Response.Cancel Then
Return
End If

' === Get bounding box in ABS coordinates (WCS) ===
Dim bbox(5) As Double
theUfSession.Modl.AskBoundingBox(solid1.Tag, bbox)

' Generate all 8 corners of the bounding box
Dim corners As New List(Of Double())
corners.Add(New Double() {bbox(0), bbox(1), bbox(2)})
corners.Add(New Double() {bbox(0), bbox(1), bbox(5)})
corners.Add(New Double() {bbox(0), bbox(4), bbox(2)})
corners.Add(New Double() {bbox(0), bbox(4), bbox(5)})
corners.Add(New Double() {bbox(3), bbox(1), bbox(2)})
corners.Add(New Double() {bbox(3), bbox(1), bbox(5)})
corners.Add(New Double() {bbox(3), bbox(4), bbox(2)})
corners.Add(New Double() {bbox(3), bbox(4), bbox(5)})

' === Get CSYS origin and orientation ===
Dim csysOrigin As Point3d = myCsys.Origin
Dim csysNXMatrix As NXMatrix = myCsys.Orientation
Dim m(2, 2) As Double
csysNXMatrix.AskMatrix(m)

' Extract X and Y axes for UF transformation
Dim xAxis(2) As Double
Dim yAxis(2) As Double
xAxis(0) = m(0, 0) : xAxis(1) = m(1, 0) : xAxis(2) = m(2, 0)
yAxis(0) = m(0, 1) : yAxis(1) = m(1, 1) : yAxis(2) = m(2, 1)

' Compute 4x4 transformation matrix from WCS to CSYS
Dim mtx4(15) As Double
theUfSession.Mtx4.CsysToCsys({0.0, 0.0, 0.0}, {1.0, 0.0, 0.0}, {0.0, 1.0, 0.0},
{csysOrigin.X, csysOrigin.Y, csysOrigin.Z}, xAxis, yAxis, mtx4)

' Initialize min/max
Dim xMin As Double = Double.MaxValue, xMax As Double = Double.MinValue
Dim yMin As Double = Double.MaxValue, yMax As Double = Double.MinValue
Dim zMin As Double = Double.MaxValue, zMax As Double = Double.MinValue

' Transform each corner to CSYS
For Each pt As Double() In corners
Dim x As Double = pt(0)
Dim y As Double = pt(1)
Dim z As Double = pt(2)

Dim newX As Double = mtx4(0) * x + mtx4(1) * y + mtx4(2) * z + mtx4(3)
Dim newY As Double = mtx4(4) * x + mtx4(5) * y + mtx4(6) * z + mtx4(7)
Dim newZ As Double = mtx4(8) * x + mtx4(9) * y + mtx4(10) * z + mtx4(11)

xMin = Math.Min(xMin, newX) : xMax = Math.Max(xMax, newX)
yMin = Math.Min(yMin, newY) : yMax = Math.Max(yMax, newY)
zMin = Math.Min(zMin, newZ) : zMax = Math.Max(zMax, newZ)
Next

' === Output results to Listing Window ===
lw.WriteLine("Bounding Box relative to selected CSYS:")
lw.WriteLine(String.Format("Xmin: {0:F3}, Xmax: {1:F3}, SizeX: {2:F3}", xMin, xMax, xMax - xMin))
lw.WriteLine(String.Format("Ymin: {0:F3}, Ymax: {1:F3}, SizeY: {2:F3}", yMin, yMax, yMax - yMin))
lw.WriteLine(String.Format("Zmin: {0:F3}, Zmax: {1:F3}, SizeZ: {2:F3}", zMin, zMax, zMax - zMin))

End Sub

' === Selection Helpers ===
Function SelectSolid(ByVal prompt As String, ByRef selObj As TaggedObject) As Selection.Response
Dim theUI As UI = UI.GetUI
Dim cursor As Point3d
Dim selectionMask_array(0) As Selection.MaskTriple
With selectionMask_array(0)
.Type = UFConstants.UF_solid_type
.SolidBodySubtype = UFConstants.UF_UI_SEL_FEATURE_BODY
End With
Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, "Select Body", _
Selection.SelectionScope.WorkPart, Selection.SelectionAction.ClearAndEnableSpecific, _
False, False, selectionMask_array, selObj, cursor)
If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
Return Selection.Response.Ok
Else
Return Selection.Response.Cancel
End If
End Function

Function SelectCSYS(ByVal prompt As String, ByRef csysObj As CoordinateSystem) As Selection.Response
Dim theUI As UI = UI.GetUI
Dim cursor As Point3d
Dim selectionMask_array(0) As Selection.MaskTriple
With selectionMask_array(0)
.Type = UFConstants.UF_coordinate_system_type
.Subtype = UFConstants.UF_all_subtype
End With
Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt, prompt, _
Selection.SelectionScope.WorkPart, Selection.SelectionAction.ClearAndEnableSpecific, _
False, False, selectionMask_array, csysObj, cursor)
If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
Return Selection.Response.Ok
Else
Return Selection.Response.Cancel
End If
End Function

Public Function GetUnloadOption(ByVal dummy As String) As Integer
Return Session.LibraryUnloadOption.AtTermination
End Function

End Module