Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim gr As Graphics = e.Graphics
        Dim last_y As Integer = 0
        Dim foto As Image = Me.ImageList1.Images(0)
 
        Dim picturebox_location As New Point(Me.ClientSize.Width, _
          Me.ClientSize.Height)
        Dim pen As New Pen(Brushes.White)
 
 
        For Each _r As DataRow In listdata.Rows
 
            ' Titellänge ermitteln 
            Dim f1 As SizeF = gr.MeasureString(_r.Item("Caption").ToString, _
              nfont)
            Dim f11 As SizeF = gr.MeasureString(_r.Item("Text").ToString, tfont)
 
            gr.FillRectangle(Brushes.LightYellow, 5, 5 + last_y, _
              Me.ClientSize.Width - 10, Fix(f1.Height) + Fix(f11.Height) + 45)
            gr.DrawRectangle(New Pen(Brushes.Black), 5, 5 + last_y, _
            Me.ClientSize.Width - 10, Fix(f1.Height) + Fix(f11.Height) + 45)
            gr.DrawString(_r.Item("Caption").ToString, nfont, _
            Brushes.SteelBlue, 20, 15 + last_y)
            gr.DrawLine(New Pen(Brushes.SteelBlue), 20, 20 + f1.Height + _
            last_y, Me.ClientSize.Width - 50, 20 + f1.Height + last_y)
            Dim stf As New StringFormat
            stf.FormatFlags = StringFormatFlags.FitBlackBox
            Dim rect As New RectangleF(20, 15 + 30 + Fix(f1.Height) + last_y, _
              Me.ClientSize.Width - 10, f11.Height)
            gr.DrawString(_r.Item("Text").ToString, tfont, Brushes.Black, rect, _
            stf)
            gr.DrawImage(foto, New Point(Me.ClientSize.Width - 40, 15 + last_y))
            last_y = last_y + Fix(f1.Height) + Fix(f11.Height) + 65
 
        Next
    End Sub