Нарисовать треугольник

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture2.PSet (X, Y)
Else: If Button = 2 Then Picture2.Cls
End If
End Sub

Dim X1, Y1
'Picture2.AutoRedraw = True
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
 Picture2.Cls
 Else
X1 = X: Y1 = Y
End If
Line1.X1 = X1: Line1.Y1 = Y1
Line1.X2 = X1: Line1.Y2 = Y1
End Sub
 
 
 
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Line1.X2 = X: Line1.Y2 = Y
End If
End Sub
 
Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
If Button = 1 Then
Picture2.Line (X1, Y1)-(X, Y)
End If
End Sub

XP = 1100
YP = 1000
FillStyle = 0
FillColor = vbBlack
Picture2.Line (XP, YP / 2)-(XP * 2, YP / 2), vbBlack
Picture2.Line (XP * 2, YP / 2)-(XP + 50, YP), vbBlack
Picture2.Line (XP + 50, YP)-(XP, YP / 2), vbBlack

d = 1000
XP = (Picture2.Width - d) / 2
YP = (Picture2.Height + 2 * d / 3) / 2
FillStyle = 0
 
Picture2.Line (XP, YP)-(XP + d, YP), vbBlack
Picture2.Line (XP + d, YP)-(XP + d / 2, YP / 2), vbBlack
Picture2.Line (XP + d / 2, YP / 2)-(XP, YP), vbBlack