Private Sub Form1_Load(sender As Object, e As EventArgs)
　　' データの設定
　　' ...
　　' 非連結列を追加
　　Dim c = New C1DataColumn()
　　c.Caption = "No"
　　c1TrueDBGrid1.Columns.Add(c)
　　Dim dc = Me.c1TrueDBGrid1.Splits(0).DisplayColumns("No")
　　dc.Visible = True
　　dc.Width = 20

　　'非連結列を固定＆ロック
　　dc.Frozen = True
　　dc.Locked = True

　　Dim d = c1TrueDBGrid1.Splits(0).DisplayColumns
　　d.RemoveAt(d.IndexOf(dc))
　　d.Insert(0, dc)
　　AddHandler c1TrueDBGrid1.UnboundColumnFetch, AddressOf C1TrueDBGrid1_UnboundColumnFetch
End Sub

' 非連結列に行番号を表示
Private Sub C1TrueDBGrid1_UnboundColumnFetch(sender As Object, e As UnboundColumnFetchEventArgs)
　　If e.Column.Caption = "No" Then
　　　　e.Value = Convert.ToString(e.Row + 1)
　　End If
End Sub

private void Form1_Load(object sender, EventArgs e)
{
　　// データの設定
　　// ...
　　// 非連結列を追加
　　var c = new C1DataColumn();
　　c.Caption = "No";
　　c1TrueDBGrid1.Columns.Add(c);
　　var dc = this.c1TrueDBGrid1.Splits[0].DisplayColumns["No"];
　　dc.Visible = true;
　　dc.Width = 20;

　　//非連結列を固定＆ロック
　　dc.Frozen = true;
　　dc.Locked = true;

　　var d = c1TrueDBGrid1.Splits[0].DisplayColumns;
　　d.RemoveAt(d.IndexOf(dc));
　　d.Insert(0, dc);
　　c1TrueDBGrid1.UnboundColumnFetch += C1TrueDBGrid1_UnboundColumnFetch;
}

// 非連結列に行番号を表示
private void C1TrueDBGrid1_UnboundColumnFetch(object sender, UnboundColumnFetchEventArgs e)
{
　　if (e.Column.Caption == "No")
　　e.Value = Convert.ToString(e.Row + 1);
}