vb.net中自带的线帽是跟线粗有关的，也就是如果pen的width值小，那线帽也很小，几乎看不到。
幸好vb.net中允许自定义线帽，前些日子在网上搜了很多次，也没有找到一个确切的办法。现将我自己的方法如下，很简单：
Dim pen1 As New Pen(Color.Black,1)
'自定义线帽
Dim a As New AdjustableArrowCap(3,4)
'将它设为线的终点线帽
pen1.CustomEndCap = a
'画线
e.Graphics.DrawLine(pen1,40,20,120,20)
原文链接：https://www.f2er.com/vb/263065.html