GDI 虚线画笔

Dim dashValues As Single() = {1, 6}
Dim pen1 As New Pen(Brushes.Red, 1)
pen1.DashStyle = Drawing2D.DashStyle.Dot
pen1.DashPattern = dashValue