Private Sub frmAddEditGebaude_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim g As System.Drawing.Graphics = Me.CreateGraphics
        g.DrawLine(New Pen(System.Drawing.Color.Red), 0, 0, _
          Me.ClientSize.Width, Me.ClientSize.Height)
    End Sub