Public Class frmHBmain
    Inherits System.Windows.Forms.Form

Private Sub frmHBmain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.FormatGridColumns()
        Me.SetUpDatagrids()
End Sub

Private Sub FormatMyGrids
     Dim tsProducts As New DataGridTableStyle
        Dim tbcSerialNumber As DataGridTextBoxColumn
        Dim ctbcResult(12) As ColoredTextBoxColumnResult
        Dim intLoop As Integer
       tbcSerialNumber = New DataGridTextBoxColumn
       With tbcSerialNumber
               .MappingName = "frequency"
               .HeaderText = "Frequency"
               .Width = 60
               .Alignment = HorizontalAlignment.Center
       End With

        For intLoop = 1 To 12
            ctbcResult(intLoop) = New ColoredTextBoxColumnResult
            With ctbcResult(intLoop)
                .MappingName = "ch" & intLoop.ToString
                .HeaderText = "CH" & intLoop.ToString
                .Width = 40
                .Alignment = HorizontalAlignment.Center
            End With
  
        Next
        tsProducts.MappingName = "Vrms"
        tsProducts.GridColumnStyles.Add(tbcSerialNumber)
        For intLoop = 1 To 12
            tsProducts.GridColumnStyles.Add(ctbcResult(intLoop))
        Next
        Me.datResult.TableStyles.Add(tsProducts)

        tsProducts.Dispose()
end sub

 Private Sub SetUpDatagrids()
   
        Me.datResult.DataSource = Nothing
        Me.datResult.CaptionText = "Result in dBs"
        Dim objCellVal As Object
        Dim intLoop As Integer
        Dim intLoopChan As Integer
        For intX As Integer = 1 To 3
            Dim dt As New DataTable
            Dim dr As DataRow
            Dim dv As DataView = New DataView
            With dt
                .TableName = "Result"
                .Columns.Add("frequency")
                For intLoop = 1 To 12
                    .Columns.Add("ch" & intLoop.ToString)
                Next
            End With
            With dv
                .Table = dt
                For intLoop = 1 To 10
                    dr = .Table.NewRow
                    .Table.Rows.Add(dr)
                Next
            End With

            With Me.datResult
                .DataSource = dv
                'In here I have a some code that enters data into the cells of my grid
             end with
end sub

End Class

Public Class ColoredTextBoxColumnResult
    Inherits DataGridTextBoxColumn
    Dim passthru As PASSTHRUVARS
    Protected Overloads Overrides Sub Paint(ByVal graph As Graphics, _
         ByVal rectbounds As Rectangle, ByVal curmngrSrc As _
         CurrencyManager, ByVal RowNumber As Integer, ByVal _
         ForeColorBrush As Brush, ByVal BackColorBrush As Brush, _
         ByVal AlignmentRight As Boolean)

        Dim ObjVal As Object
        ObjVal = Me.GetColumnValueAtRow(curmngrSrc, RowNumber)
        If Not (IsNothing(ObjVal) Or IsDBNull(ObjVal)) Then
            If IsNumeric(ObjVal) Then
                Dim cellValue As Double = Convert.ToDouble(ObjVal)
                If cellValue = 0 Then
                    BackColorBrush = Brushes.LightGray
                    ForeColorBrush = Brushes.Black
                ElseIf (cellValue > Me.passthru.dblULVrms) Or (cellValue < Me.passthru.dblLLVrms) Then
                    BackColorBrush = Brushes.Red
                    ForeColorBrush = Brushes.Black
                Else
                    BackColorBrush = Brushes.Gray
                    ForeColorBrush = Brushes.Black
                End If
            Else
                BackColorBrush = Brushes.Gray
                ForeColorBrush = Brushes.Black
            End If
        Else
            BackColorBrush = Brushes.Gray
            ForeColorBrush = Brushes.Black
        End If
        ' Call Paint from the base class to 
        ' accomplish the actual drawing.
        MyBase.Paint(graph, rectbounds, curmngrSrc, RowNumber, _
            BackColorBrush, ForeColorBrush, AlignmentRight)
    End Sub
End Class

<C#>
bool ShouldSerializeValue(){
    return Value != DefaultValue;
}

<VB>
Function ShouldSerializeValue() As Boolean
    Return (Value <> DefaultValue)
End Function

Public Overrides Function ShouldSerializeValue(ByVal component As Object) As Boolean
        Return False 
    End Function