源码：
Imports System.Drawing.Drawing2D
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim g As System.Drawing.Graphics
Dim p As GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath
g = PictureBox1.CreateGraphics
g.FillRectangle(Brushes.White, 0, 0, 400, 50)
p.AddLines({New PointF(24.219, 0.195), New PointF(29.932, 0.195),
New PointF(29.932, 41.748), New PointF(22.412, 41.748),
New PointF(22.412, 11.963), New PointF(8.838, 11.963),
New PointF(8.838, 7.52)})
p.AddBeziers({New PointF(8.838, 7.52), New PointF(10.872, 7.52),
New PointF(17.546, 6.641), New PointF(18.848, 6.201),
New PointF(20.394, 5.68), New PointF(23.975, 1.676),
New PointF(24.219, 0.195)})
p.CloseAllFigures()
g.FillPath(Brushes.Black, p)
PictureBox1.Refresh()
End Sub
End Class

顶