Private Sub pictureBox1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs)
    Using bm As New Bitmap("C:\Pic3.jpg")
        Dim i As Int32 = 0
        While i < 400
            e.Graphics.DrawImage(bm, New Point(i, 0))
            i += bm.Width
        End While
    End Using
End Sub

Gruß
Christoph