Public Function New( _
   ByVal target As GroupDataModel, _
   ByVal parent As Group, _
   ByVal column As Integer, _
   ByVal ascending As Boolean _
)

Dim target As GroupDataModel
Dim parent As Group
Dim column As Integer
Dim ascending As Boolean
 
Dim instance As New Group(target, parent, column, ascending)

public Group( 
   GroupDataModel target,
   Group parent,
   int column,
   bool ascending
)

FarPoint.Web.Spread.Model.GroupDataModel gm = new FarPoint.Web.Spread.Model.GroupDataModel(FpSpread1.ActiveSheetView.DataModel);
FarPoint.Web.Spread.SortInfo[] sort = new FarPoint.Web.Spread.SortInfo[1];
sort[0] = new FarPoint.Web.Spread.SortInfo(0, true);
gm.Group(sort, System.Collections.Comparer.Default);
FpSpread1.ActiveSheetView.DataModel = gm;

FarPoint.Web.Spread.Model.Group dg = new FarPoint.Web.Spread.Model.Group(gm, (FarPoint.Web.Spread.Model.Group)gm.Groups[0], 0, true);
bool b = dg.Ascending;
String msg = b.ToString();
Response.Write("alert('" + msg + "')");

Dim gm As New FarPoint.Web.Spread.Model.GroupDataModel(FpSpread1.ActiveSheetView.DataModel)
Dim sort(0) As FarPoint.Web.Spread.SortInfo
sort(0) = New FarPoint.Web.Spread.SortInfo(0, True)
gm.Group(sort)
FpSpread1.ActiveSheetView.DataModel = gm

Dim dg As New FarPoint.Web.Spread.Model.Group(gm, gm.Groups(0), 0, True)
Dim b As Boolean = dg.Ascending
Dim msg As String = b.ToString()
Response.Write("alert('" & msg & "')")