Imports System.Drawing.Drawing2D
Public Class Form1
    Private Sub Form1_Paint(sender As Object, e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Using gp As New GraphicsPath, p As New Pen(Brushes.Yellow)
            e.Graphics.Clear(Color.Black)
            e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
            Dim pts() As Point = {New Point(4, -4), New Point(0, 0), New Point( _
              -4, -4)}
            gp.AddLines(pts)
            Dim clp As New CustomLineCap(Nothing, gp) With {.WidthScale = 3}
            p.CustomEndCap = clp
            e.Graphics.DrawLine(p, 10, 130, 150, 130)
            e.Graphics.DrawLine(p, 75, 20, 75, 200)
        End Using
    End Sub
End Class