Attribute VB_Name = "Module1"
Global X1, X2, X3, Y1, Y2, Y3 As Single
Public Sub Треугольник(X1, X2, X3, Y1, Y2, Y3 As Single)
frm2.Line (X1, Y1)-(X2, Y2)
frm2.Line (X1, Y1)-(X3, Y3)
frm2.Line (X2, Y2)-(X3, Y3)
End Sub
