VERSION 5.00
Begin VB.Form frm1 
   BackColor       =   &H00FFFFFF&
   Caption         =   "Треугольники 1"
   ClientHeight    =   2496
   ClientLeft      =   48
   ClientTop       =   3300
   ClientWidth     =   4092
   LinkTopic       =   "Form1"
   ScaleHeight     =   2496
   ScaleWidth      =   4092
   Begin VB.CommandButton cmdТреугольники 
      Caption         =   "Треугольники"
      Height          =   492
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   1332
   End
   Begin VB.CommandButton cmd2 
      Caption         =   "Показать вторую форму"
      Height          =   492
      Left            =   1800
      TabIndex        =   0
      Top             =   1920
      Width           =   2172
   End
End
Attribute VB_Name = "frm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub Треугольник(X1, X2, X3, Y1, Y2, Y3 As Single)
frm1.Line (X1, Y1)-(X2, Y2)
frm1.Line (X1, Y1)-(X3, Y3)
frm1.Line (X2, Y2)-(X3, Y3)
End Sub
Private Sub cmdТреугольники_Click()
frm1.Scale (0, 170)-(350, 0)
Треугольник 10, 50, 100, 10, 100, 80
Треугольник 120, 150, 200, 60, 50, 150
Треугольник 210, 300, 340, 70, 90, 150
End Sub
Private Sub cmd2_Click()
frm2.Show
End Sub

