fpSpread1.AllowColumnMove = true;
fpSpread1.ActiveSheet.GroupBarInfo.Visible = true;
fpSpread1.ActiveSheet.AllowGroup = true;

FarPoint.Win.Spread.GroupInfo gi = new FarPoint.Win.Spread.GroupInfo();
gi.BackColor = Color.Yellow;

FarPoint.Win.Spread.GroupInfo gi2 = new FarPoint.Win.Spread.GroupInfo();
gi2.BackColor = Color.Green;

FarPoint.Win.Spread.GroupInfoCollection gic = new FarPoint.Win.Spread.GroupInfoCollection();
gic.AddRange(new FarPoint.Win.Spread.GroupInfo[] { gi, gi2 });

fpSpread1.ActiveSheet.GroupInfos.Add(gic[0]);

private void button1Click(object sender, EventArgs e)
{
FarPoint.Win.Spread.Model.GroupDataModel gm;
if ((fpSpread1.ActiveSheet.Models.Data) is FarPoint.Win.Spread.Model.GroupDataModel)
{
      gm = (FarPoint.Win.Spread.Model.GroupDataModel)fpSpread1.ActiveSheet.Models.Data;
      if ((gm.TargetModel) is FarPoint.Win.Spread.Model.IRangeSupport)
      {
            FarPoint.Win.Spread.Model.IRangeSupport im = (FarPoint.Win.Spread.Model.IRangeSupport)gm.TargetModel;
            bool b;
            b = gm.IsGroup(0);
            string s = gm.GetColumnName(2);
            MessageBox.Show(s);
      }
}

FpSpread1.AllowColumnMove = True
FpSpread1.ActiveSheet.GroupBarInfo.Visible = True
FpSpread1.ActiveSheet.AllowGroup = True

Dim gi As New FarPoint.Win.Spread.GroupInfo
gi.BackColor = Color.Yellow

Dim gi2 As New FarPoint.Win.Spread.GroupInfo
gi2.BackColor = Color.Green

Dim gic As New FarPoint.Win.Spread.GroupInfoCollection()
gic.AddRange(New FarPoint.Win.Spread.GroupInfo() {gi, gi2})

FpSpread1.ActiveSheet.GroupInfos.Add(gic(0))

Private Sub Button1Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim gm As FarPoint.Win.Spread.Model.GroupDataModel
If TypeOf (FpSpread1.ActiveSheet.Models.Data) Is FarPoint.Win.Spread.Model.GroupDataModel Then
      gm = FpSpread1.ActiveSheet.Models.Data
      If TypeOf (gm.TargetModel) Is FarPoint.Win.Spread.Model.IRangeSupport Then
            Dim im As FarPoint.Win.Spread.Model.IRangeSupport = gm.TargetModel
            Dim b As Boolean
            b = gm.IsGroup(0)
            Dim s As String = gm.GetColumnName(2)
            MsgBox(s)
      End If
End If

End Sub