Sub gg_CellProps ( aCol As Int , aRow As Int , aValue As String , aProps As xnGridCellProps )
If aCol = 1 Then
aProps.TextColor = Colors.Red
aProps.BackGroundColor = Colors.Gray
End If
If aCol = 1 Then
If aRow = 1 Then
aProps.BackGroundColor = Colors.Green
End If
End If
End Sub