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)