'Структура для возврата значения из функции
   Private Structure RowColors
      Public BackColor As Color
      Public BackColor2 As Color
   End Structure

   'Отдельная функция для определения цвета окраски строки
   Private Function GetRowColors(ByVal RowIndex As Integer) As RowColors
      Dim clrs As New RowColors
      If table.DefaultView(RowIndex)("ShipVia") =  3  Then
         clrs.BackColor = Color.Pink
         clrs.BackColor2 = Color.Pink
      Else
         clrs.BackColor = Color.FromArgb( 255 ,  255 ,  192 )
         clrs.BackColor2 = Color.FromArgb( 192 ,  192 ,  255 )
      End If
      Return clrs
   End Function

   Private Sub C1TrueDBGrid1_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) _
            Handles C1TrueDBGrid1.FetchRowStyle
      With GetRowColors(e.Row)
         e.CellStyle.BackColor = .BackColor
         e.CellStyle.BackColor2 = .BackColor2
      End With
   End Sub