Private Sub Form_Load()
With MSHFlexGrid1
.BackColor = &HC0FFFF
.AllowBigSelection = True
.ColWidth(0) = 300
For r = 1 To .Rows - 1 Step 2
.Row = r
For c = 1 To .Cols - 1
.Col = c
.CellBackColor = &HC0E0FF '設置奇數行的背景色為"淺綠色"
Next c
Next r
End With
End Sub
注意:表大了會(huì )很慢