Dim gM As Graphics = Me.CreateGraphics()
        Dim gRM As Graphics = Me.CreateGraphics
        Dim penM As New Pen(Color.Black, 1)
        Dim FortschrittM As Double
        Dim IntervallM As Double
 
        IntervallM = 400 / (DateDiff("d", Me.dtpTL.Value, Me.dtpML.Value) + 1)
        FortschrittM = FortschrittM + IntervallM
        gM.FillRectangle(New SolidBrush(Color.Gray), 94, 437, CInt( _
          FortschrittM), 24)
        gRM.DrawRectangle(penM, 92, 435, 404, 27)