一个看似简单的问题

Question

我写了一个程序是做图像处理的，但是在运行期间不能乱动程序窗口，否则运行的结果是错误的，如果让程序自动运行完就很正常。请问有什么方法在程序运行后，不让鼠标对其操作（移动，或者关闭，或者点击别的按钮）。
我做的程序是采集整个图片上的点，得到他们的颜色，（图像是二值化的，只有白和黑），请问各位谁有比较好的办法
Private Sub Command1_Click()
Command2.Enabled = FalseDim i As Integer, j As Long     '循环扫描图像
Dim pl As Integer, pt As Long   ' 标记图像的位置
Dim a As Integer, b As Long '标记坐标
Dim biaoji As Long '标记有几个白点
pl = p1.Left
pt = p1.TopFor i = 1 To pw
aa = aa + 1
  biaoji = 0
Call jack
  For j = 1 To ph
     a = pl + i
     b = pt + j
     w = Point(a, b)   //  这个就是采集点的颜色的
     If w = 0 Then
     biaoji = biaoji + 1
     End If
  Next j
  jilu(i) = biaoji
 
Next i  MsgBox "处理结束"  
End Sub上面的采集过程中，如果动下窗口就会使程序只采集了部分，请问为什么？

Answer 1

之所以不能乱动，估计是因为在移动的一瞬间，point取错颜色
其实，你是不是考虑一下用API或者是IPicture之类的，不要直接去窗口上的图片呢，应该在内存里面做

Answer 2

本来就是简单问题吧？
开始处理前，设置窗口的 Enable 属性为 False 。
处理完成后，设置窗口的 Enable 属性为 True 。

Answer 3

去掉窗体的标题栏,自己做一个假标题栏.想让他拖的时候,就用API函数来拖动窗体.