使用Refresh（）方法导致RectangleShapes'闪烁'

Question

我有一个CSMA / CA的模拟，我正在使用visual basic powerpack窗格中的四个矩形形状。现在，当我多次移动一个数据包时，我希望它能够刷新以便可以看到数据包正在移动但是当我在我的代码中使用Refresh（）方法以及其他3个数据包的线程时，它会变得“眨眼”并且非常烦人。知道如何阻止眨眼吗？这是移动我的一个数据包的代码（在一个按钮下）：

For i As Integer = 1 To 6

        Refresh()
        pc4sense.Left += 25
        Threading.Thread.Sleep(30)
    Next i
    pc4sense.Location = New Point(124, 229)

非常感谢帮助