Извиняюсь, уже нашел
Если кому нужен будет, вот он:
Dim dashValues As Single() = {2, 2, 2, 2} ' Задаем размеры штрихов (пунктир)
Dim blackPen As New Pen(Color.Black, 1)
blackPen.DashPattern = dashValues
e.Graphics.DrawLine(blackPen, New Point(5, 5), New Point(405, 5))
90% всех ошибок сидят в полуметре от монитора...
Я бы изменил мир, но Бог не даёт исходников, а дьявол все время что-то кодит...