描画処理のちらつきについて

Public Class Form1



    Private dcp As New DragContentsPanel



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        dcp.Dock = DockStyle.Fill

        Me.Controls.Add(dcp)



        Me.Size = New Size(800, 600)



    End Sub



    Public Class DragContentsPanel : Inherits Panel



        Private pic As New PictureBox

        Private txt As New TextBox

        Private WithEvents btn As New Button

        Private tmr As New Timer



        Public Sub New()

            pic.Dock = DockStyle.Fill

            txt.Dock = DockStyle.None

            btn.Dock = DockStyle.None



            txt.Left = 100

            txt.Top = 100

            txt.Width = 200

            txt.Height = 24

            txt.BackColor = Color.Aqua

            txt.ForeColor = Color.Snow

            txt.Text = "OKOKOKOKOKOKOOKOOKOOK"



            btn.Text = "Move Text"





            Me.Controls.Add(pic)

            Me.Controls.Add(txt)

            Me.Controls.Add(btn)



            txt.BringToFront()

            btn.BringToFront()



            pic.BackgroundImage = Image.FromFile("C:\images\n_002.ico")





            AddHandler btn.Click, AddressOf btn_Click



            tmr.Interval = 100

            AddHandler tmr.Tick, AddressOf tmr_Tick



        End Sub



        Private Sub btn_Click(ByVal o As Object, ByVal e As EventArgs)

            tmr.Start()



        End Sub



        Private _X As Integer = 50



        Private Sub tmr_Tick(ByVal o As Object, ByVal e As EventArgs)



            If _X < 400 Then

                _X += 1

                txt.Left = _X

                txt.Top = _X

            Else

                tmr.Stop()



            End If

        End Sub

    End Class



End Class