اريد عمل شريط متحركة

هدا كود أرجو ان يفيدك

Private Sub TimerDrawString_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerDrawString.Tick

Static i = 20

Dim p As New Point

p.X = 20 : p.Y = 25

Currpic.Width = 950 : Currpic.Height = 550

Currpic.Location = p

Dim bmp As New Bitmap(950, 550)

Dim g As Graphics = Graphics.FromImage(bmp)

g.DrawString(Msg, New Font("verdana", 10, FontStyle.Bold), New SolidBrush(Color.Blue), i, 50)

Currpic.BackColor = Color.White

Currpic.Image = bmp

If i = 650 Then i = 20 Else i += 5

End Sub