怎么樣用vb畫等腰三角形？

代碼示例：

Private Sub Command1_Click()

ScaleMode = vbPixels

Me.Cls

PSet (Me.ScaleWidth / 2, 5), RGB(255, 0, 0)

PSet (5, Me.ScaleHeight - 5), RGB(0, 255, 0)

PSet (Me.ScaleWidth - 5, Me.ScaleHeight - 5), RGB(0, 0, 255)

Line (Me.ScaleWidth / 2, 0)-(5, Me.ScaleHeight - 5), RGB(255, 0, 0)

Line (Me.ScaleWidth / 2, 0)-(Me.ScaleWidth - 5, Me.ScaleHeight - 5), RGB(0, 255, 0)

Line (5, Me.ScaleHeight - 5)-(Me.ScaleWidth - 5, Me.ScaleHeight - 5), RGB(0, 0, 255)

End Sub