Hi, anyone know how to use these functions in rhino

Function Bounding_Lower_Left_front_point(objects) ' return array front lower left-point of objects   Dim w   w = Rhino.BoundingBox(objects)  ' get bounds of lower objects   Bounding_Lower_Left_front_point = w(0) ' ll front End Function

Function Bounding_Upper_Right_rear_point(objects) ' return array rear upper right-point of objects   Dim w   w = Rhino.BoundingBox(objects)  ' get bounds of lower objects   Bounding_Upper_Right_rear_point = w(6) ' ur rear End Function

Sub Bounding_LL_Front_UR_Rear(objects, pt_ll, pt_ur) ' lower left, upper right   Dim w   w = Rhino.BoundingBox(objects)  ' get bounds of lower objects   pt_ur = w(6) ' ur rear   pt_ll = w(0) ' ll front End Sub

Function Bounding_Width(objects) ' Return width of objects   Dim pt_ll, pt_ur   Bounding_LL_Front_UR_Rear objects, pt_ll, pt_ur ' get bounds of objects   Bounding_Width = pt_ur(0) - pt_ll(0) End Function

Function Bounding_Mid_X(objects) ' return bounding mid point X value   Dim X   X = Bounding_Mid_point(objects) ' return array mid-point of objects   Bounding_Mid_X = X(0) End Function

Function Bounding_Mid_Y(objects) ' return bounding mid point X value   Dim X   X = Bounding_Mid_point(objects) ' return array mid-point of objects   Bounding_Mid_Y = X(1) End Function

Function Bounding_Mid_Z(objects) ' return bounding mid point X value   Dim X   X = Bounding_Mid_point(objects) ' return array mid-point of objects   Bounding_Mid_Z = X(2) End Function