vb.net - Refresh() メソッドを使用すると、RectangleShapes が「点滅」する

Question

CSMA/CA のシミュレーションがあり、Visual Basic パワーパック ペインの 4 つの四角形を使用しています。1つのパケットを数回移動すると、パケットが移動しているように見えるようにリフレッシュしたいのですが、コードでRefresh()メソッドをスレッド化とともに使用すると、他の3つのパケットが「点滅」し、非常に面倒です。まばたきを止める方法はありますか？ここに私のパケットの1つを移動するためのコードがあります(ボタンの下):

For i As Integer = 1 To 6

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

助けていただければ幸いです