g.DrawImage(ImgMid, New Rectangle(0, 0, 200, ImgMid.Height))

            Dim tb As New TextureBrush(ImgMid)
            g.FillRectangle(tb, New Rectangle(0, 0, 200, ImgMid.Height))

    Private Sub FillImg(ByVal g As Graphics, ByVal location As Point, ByVal img _
      As Bitmap, ByVal width As Integer)
        For i As Integer = 0 To Width Step img.Size.Width
            g.DrawImage(img, New Rectangle(Location.X + i, Location.Y, _
              img.Size.Width, img.Size.Height))
        Next
    End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co