Option Explicit Sub TestLoft Rhino.AddLoftSrf Rhino.ObjectsByType(4),,,0,1,45,False End Sub