如何在vb.net WinForm中绘制直角三角形？

Imports System.Drawing

Public Class Form1
    Inherits Form

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)

        Dim g As Graphics = e.Graphics
        Dim pen As New Pen(Color.Black)

        ' 定义三角形的三个顶点
        Dim point1 As New Point(50, 50)
        Dim point2 As New Point(50, 150)
        Dim point3 As New Point(150, 150)

        ' 绘制直角三角形
        g.DrawLine(pen, point1, point2)
        g.DrawLine(pen, point2, point3)
        g.DrawLine(pen, point3, point1)
    End Sub

    Public Sub New()
        Me.ClientSize = New Size(200, 200)
    End Sub

    Public Shared Sub Main()
        Application.Run(New Form1())
    End Sub
End Class