Private Sub Form_Load()
Line (100, 100)-(100, 5500)
Line -(5500, 5500)
Line -(100, 100)
'b = CreateSolidBrush(vbRed) '建立，设定涂刷brush物件为红色
Call SelectObject(Form2.hdc, CreateSolidBrush(vbRed)) '将红色的涂刷brush物件设定给form2.hdc
Call ExtFloodFill(Form2.hdc, 10, 200, Form2.Point(10, 200), 1)

上面代码运行正常，问题是把后面2行删掉，放到Private Sub Form_Click()里面，就不行了，，为什么？？
感觉很神奇。经过多次尝试，发现要连line语句一起移走，，才行，
很困惑。

Call SelectObject(Form2.hdc, CreateSolidBrush(vbRed)) 'ì戀爀甀猀栀è¨昀漀爀洀2.hdc
Call ExtFloodFill(Form2.hdc, 10, 200, vbBlack, 0)
''DoEvents
'MsgBox ""
Call SelectObject(Form2.hdc, CreateSolidBrush(vbYellow)) 'ì戀爀甀猀栀è¨昀漀爀洀2.hdc
Call ExtFloodFill(Form2.hdc, 10, 200, vbBlack, 0)
还有这样用的话，后面2行不起作用，，，，vb里复制出来怎么是乱码

原因找到了，没有及时刷新窗体所致，
加了Form1.Refresh好了
为什么总有一些新问题不断出现