label控件,picturebox控件在移动的时候不流畅

label控件,picturebox控件在移动的时候不流畅
如何能让控件移动得流畅
运行的时候CPU占得大
Timer1.interval=200
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i As Integer = 0 To 0
            world(i).Top = world(i).Top + 1
            PictureBox1.Top = PictureBox1.Top + 1
        Next
    End Sub



还有请教如何有线程写这个问题
我试过写
但是多个控件的时候 他是执行完一个控件再到另一个控件的

补充：.NET技术 ,  VB.NET