如何设置MSFlexGrid控件的单元格颜色

Question

用LockWindowUpdate函数来锁定窗口，然后进行更新，然后再解锁源代码如下，我手写的，不知道有没有错
'//API函数原形我忘记了，你查查手册
private declare function lockWindowUpdate (byval hwnd as Long) as longprivate sub command1_click()
dim x as long, y as longmshflexgrid1.rows = 100
mshflexgrid1.cols = 100
lockwindowupdate mshflexgrid1.hwnd
for x = 1 to 100 - 1
    for y = 1 to 100 - 1
        mshflexgrid1.col = x
        mshflexgrid1.row = y
        mshflexgrid1.cellbackcolor = vbgreen
    next
next
lockwindowupdate false
end sub