Picture3.Line (ax + 2000, 4000 - ay)-(bx + 2000, 4000 - by) Picture3.Line -(cx + 2000, 4000 - cy) Picture3.Line -(dx + 2000, 4000 - dy) Picture3.Line -(ax + 2000, 4000 - ay) Next End Sub
Private Sub Command3_Click() Picture1.Cls Picture2.Cls Picture3.Cls End Sub
Private Sub Text1_Change() End Sub

