Public Class frmPicMove
 
    Dim bmp As Bitmap
    Dim bmp_rect As Rectangle
 
    Dim WithEvents timMove As New Timer With 
         {.Interval = 50, .Enabled = False}
    Dim WithEvents btnStart As New Button With 
         {.Parent = Me, .Width = 150, .Text = "Move"}
    Dim WithEvents pbMove As New PictureBox With 
        {.Parent = Me, .Top = 50,
        .SizeMode = PictureBoxSizeMode.Zoom}
 
 
    Dim startleft, stopleft, anim_left As Integer
 
 
    Private Sub frmPicMove_Load(sender As Object, 
               e As EventArgs) Handles MyBase.Load
 
        Me.Width = 1050
        Me.Height = 550
 
        pbMove.Width = Me.Width - 20
        pbMove.Height = 
             Me.ClientSize.Height - (btnStart.Top + btnStart.Height + 20)
 
        Dim picfile As String = "G:\Daten\x1.jpg"
 
        bmp_rect = BitmapFunctions.GetPicRect(picfile, pbMove.Size)
 
        Using bmp_orig As New Bitmap(picfile)
            bmp = New Bitmap(bmp_orig, 
               New Size(bmp_rect.Width, bmp_rect.Height))
        End Using
 
        'Das Bild im Hintergrund in die Image der Picturebox
        pbMove.Image = bmp
 
 
        startleft = -bmp.Width
        stopleft = bmp_rect.Left
        anim_left = startleft - 5
 
    End Sub
 
 
    Private Sub pbMove_Paint(sender As Object, 
        e As PaintEventArgs) Handles pbMove.Paint
 
        Dim rect_paint As New Rectangle(anim_left, 0, bmp.Width, bmp.Height)
 
        'Das animierte Bild in die Zeichenebene der Picturebox
        e.Graphics.DrawImage(bmp, rect_paint, 
                             New Rectangle(0, 0, bmp.Width, bmp.Height),
                             GraphicsUnit.Pixel)
    End Sub
 
 
    Private Sub timMove_Tick(sender As Object, e As EventArgs) Handles _
      timMove.Tick
 
        anim_left += 5
        If anim_left >= stopleft Then
            timMove.Enabled = False
            anim_left = startleft - 5
        Else
            pbMove.Invalidate()
        End If
 
    End Sub
 
 
    Private Sub btnStart_Click(sender As Object, 
           e As EventArgs) Handles btnStart.Click
 
        timMove.Enabled = Not timMove.Enabled
    End Sub
End Class