避免显示区域的闪动现象。 Call ValidateRect(cLvwMer.hwnd, rc) DoEvents p = p + 1 If p Mod 1000 = 0 Then Call InvalidateRect(cLvwMer.hwnd, rc, True) cLvwMer.Refresh Call ValidateRect(cLvwMer.hwnd, rc) End If