Графические средства Visual Basic

[daff_9000]

Подскажите как соединить концы отрезков диагональными линиями, чтоб получился многоугольник... ?

Private Sub Command3_Click()

Picture2.Scale (-10, 10)-(10, -10)

Picture2.Cls

Picture2.DrawWidth = 2

Picture2.Line (-9, 0)-(9, 0), vbMagenta

Picture2.Print "X"

Picture2.Line (0, -9)-(0, 9), vbMagenta

Picture2.Print "Y"

Picture2.DrawWidth = 3

Picture2.FillStyle = 4

Picture2.FillColor = vbBlue

Picture2.Line (-3, 6)-(0, 6), vbBlack, B

Picture2.Line (0, 6)-(3, 6), vbBlack, B

Picture2.Line (6, 3)-(6, -3), vbBlack, B

Picture2.Line (3, -6)-(0, -6), vbBlack, B

Picture2.Line (0, -6)-(-3, -6), vbBlack, B

End Sub

И подскажите как нарисовать прямоугольную призму с триугольниками в основании...