EndWith

Pen= CreatePenIndirect (mLP)OldPen= SelectObject (Form1.hdc, Pen)Ifi = 1 ThenCallRectangle(Form1.hdc,20,30,70,80)Ifi = 2 ThenCall Ellipse (Form1.hdc,100,30,150,80)Ifi = 3 ThenCall_ Pie (Form1.hdc,180,30,230,80,180,30,230,30)Ifi = 4 ThenCall_ Chord (Form1.hdc, 260, 30, 310, 80,260,30,310,50)Ifi = 5 ThenCall_ RoundRect (Form1.hdc,20,120,70,170,25,25)if i = 6 ThenCall SelectObject (Form1.hdc, OldPen)W.x= 3mLP.lopnWidth= WPen= CreatePenIndirect (mLP)

OldPen= SelectObject (Form1.hdc, Pen)Call Arc (Form1.hdc,200,100,320,200,350,250, 200,400)Call MoveToEx (Form1.hdc, 400, 250, lpp)Call LineTo (Form1.hdc, 260, 150)Call LineTo (Form1.hdc, 190, 250)Call FloodFill (Form1.hdc, 250, 120, &HFF)EndIfCall SelectObject (Form1.hdc, OldPen)NextCall SelectObject (Form1.hdc, OldBrush) EndSubPrivateSubForm_Load() Caption= "Примеротображенияграфическихпримитивов" End Sub