Private Sub LoadTotal(ByVal FileName As String)
     Dim bmp As New Bitmap(FileName)
     Dim dwidth, dheight As Integer
 
     'Größenskalierung des Bildes
     If bmp.Width > total.Width Then
        dheight = CInt(total.Width / bmp.Width * bmp.Height)
        dwidth = total.Width
     End If
 
     If dheight > total.Height Then
        dwidth = CInt(total.Height / bmp.Height * bmp.Width)
        dheight = total.Height
     End If
 
     With total
        Using gr As Graphics = Graphics.FromImage(total)
            gr.Clear(Color.White) 'Hintergrund zeichnen
            gr.DrawImage(bmp, 0, 0, dwidth, dheight) 'Bild zeichnen
       End Using
    End With
    bmp.dispose() 
End Sub