Dim Grafik As New clsBefehl.Grafik
        Dim Linie(0 To 2) As Graphics
        Dim Farbe As New Pen(Color.Black)
 
        For i As Integer = 0 To 2
            Linie(i) = e.Graphics
            Linie(i) = Graphics.FromImage(pctReAuge.BackgroundImage)
        Next
 
        Linie(0).DrawLine(Farbe, CInt(pctReAuge.Width / 2), 0, _
            CInt(pctReAuge.Width / 2), CInt(pctReAuge.Height))
        Linie(1).DrawLine(Farbe, 0, CInt(pctReAuge.Height / 2), _
            CInt(pctReAuge.Width), CInt(pctReAuge.Height / 2))