هل يمكن تلوين أسطر الشبكة DBGrid لكل سطر لون

' المسئول عن تغيير لون الصف في الفلكس قريد بالتناوب

Dim IRow As Long
     Dim ICol As Long

     IRow = 1
     Do While IRow < Flex.Rows
         Flex.Row = IRow
         For ICol = 1 To Flex.Cols - 1
             Flex.Col = ICol
             Flex.CellBackColor = &HF3F4F5           'RGB(255, 225, 255)
         Next
         IRow = IRow + 2
     Loop

'المسئول عن جعل المؤشر اول سجل (التظليل )في الفليكس قريد

 Flex.Row = 1
    If Flex.Row < Flex.Rows - 1 Then

        Flex.Row = Flex.Row + 1
        Flex.Row = 1
        Flex.RowSel = Flex.Row
        Flex.Col = 1
        Flex.ColSel = Flex.Cols - 1
    End If