Knowing the displacement of the vessel created would be very useful. Add another procedure to the program that will move the surfaces so that the chine at the transom is on the waterline, then calculate the displacement.

Alternatively, for a given displacement, move the vessel upwards or downwards to find the correct displacement, then report back the resulting immersed depth and the chine immersion at the transom

Hints

To move surfaces, use the move method;

Sub MoveSurfaces()

Dim sList As New Maxsurf.SurfaceList

sList.Add msApp.Design.Surfaces

For i = 1 To sList.Count

    sList(i).Move 0, 0, zDist

Next

End Sub

To move the surfaces to a given displacement, you will need to iterate until the displacement is within a tolerance. Don’t forget to account for the vessel sinking, you can do this by testing if the waterline is between the highest and lowest control points.