[ALBRNS]

وعليكم السلام ورحمة الله وبركاته

تفضل

PHP كود :

Private Sub Form_Load()
Dim r As Integer
Dim c As Integer
With MSFlexGrid1
.Cols = 10
.Rows = 15
For r = 1 To .Rows - 1
If r Mod 2 = 0 Then
.Row = r
For c = 1 To .Cols - 1
.Col = c
.CellBackColor = vbYellow
Next c
End If
Next r
End With
End Sub 


بالتوفيق