'--------------------------------------------------------------
        Dim imgeLocation As Point = New Point(50, 180)
        '--------------------------------------------------------------
 
        Try
 
            For i As Integer = 0 To HBDatenbankDS.tblStrom.Rows.Count - 1
                Dim row As DataRow = HBDatenbankDS.tblStrom.Rows(i)
                Dim bildpfad As String = row("Pfad").ToString
                Dim Ablesedate As Date = row("Ablesedatum").ToString
                Dim TitelBild As String
                TitelBild = Format(Ablesedate, "ddd-dd.MM.yyyy HH:mm")
                If IsBildPfad(bildpfad) = True Then
                    Dim img As Image = Resize_Image(New Bitmap(Image.FromFile( _
                      bildpfad)))
                    e.Graphics.DrawImage(img, imgeLocation)
                    'Calculate the location of the next image.
                    imgeLocation.Y += img.Height + 10
                    Dim rect = New Rectangle(50, imgeLocation.Y, 120, 22)
                    e.Graphics.FillRectangle(New SolidBrush(HeadColor), rect)
                    e.Graphics.DrawString(TitelBild, f8, Brushes.White, rect, _
                      sf)
                Else
                End If
 
            Next i
        Catch ex As Exception
 
        End Try