Dim imgeLocation As Point = New Point(50, 190)
        Try
            For i As Integer = 0 To HBDatenbankDS.tblStrom.Rows.Count - 1
                Dim row As DataRow = HBDatenbankDS.tblStrom.Rows(i)
                Dim Ablese_Zeit As String = row("Ablesedatum").ToString
                Dim bildpfad As String = row("Pfad").ToString
 
                If IsBildPfad(bildpfad) = True Then
                    Dim img As Image = Resize_Image(New Bitmap(Image.FromFile( _
                      bildpfad)))
                    Dim rect = New Rectangle(50, 190, img.Height + 2, 22)
                    e.Graphics.DrawImage(img, imgeLocation)
                    'Calculate the location of the next image.
                    imgeLocation.Y += img.Height + 5
 
                Else
 
                End If
            Next i
        Catch ex As Exception
 
        End Try