[PhoeniX]

А что не понятно?
Если тебя интересует не "помогите", а "сделайте за меня" - тебе в раздел работа.
Копать тебе в сторону циклов, и к PaintBox.Canvas.
Два полезных метода Canvas'a, которыми тебе надо пользоваться:
MoveTo(x,y:integer) - перемещает "курсор" на позицию X-Y
LineTo(x,y:integer) - рисует линию от текущей позиции курсора к координатам X-Y