ADimpAsnewPen=Color.RedBDimpAsPen=NewPen(Color.Red，)CDimpAsnewPen=Pen(Color.Red，)DDimpAsPen(Color.Black)EDimp=Pen(Color.Black，)