>>Private Sub CmdTestGreenBar_Click() >> GreenBar (frmMain.grdBudgetSummary) >>End Sub >>'==================== >>Public Function GreenBar(objGrid As Object) >> Dim x As Long >> objGrid.Row = 0 >> objGrid.Col = 0 >> >> Do Until objGrid.Row = objGrid.Rows - 1 >> objGrid.Row = objGrid.Row + 1 >> >> For x = 0 To objGrid.Cols - 1 >> objGrid.Col = x >> objGrid.CellBackColor = &HC0FFC0 'Light green >> Next >> objGrid.Row = objGrid.Row + 1 >> Loop >>' DEV: fix for odd number of rows >>End Function>
GreenBar frmMain.grdBudgetSummaryYIPPEE!! I took it out of parentheses and it worked as desired! MSFlexGrid is the one I'm using.
"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams