Private Sub Command1_Click() With MSHFlexGrid1 .Rows = 2 .FixedCols = 0 .FixedRows = 1 Static f As Boolean f = Not f If f Then .GridColor = vbWhite Else .GridColor = vbBlack End If End With End Sub
