解決圖片重新整理閃爍可使能DoubleBuffering

將以下程式碼插入

Public Sub EnableDoubleBuffering()
        ' Set the value of the double-buffering style bits to true.
        Me.SetStyle(ControlStyles.DoubleBuffer _
     Or ControlStyles.UserPaint _
     Or ControlStyles.AllPaintingInWmPaint,
     True)
        Me.UpdateStyles()
    End Sub
 

並呼叫

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        EnableDoubleBuffering()
End Sub

Microsoft官方例項
進入網址選擇右上角VB