Visual Bacic6. Отрисовка графика.

[С.М.С]

Здравствуйте. Делаю программу для ДП. Программа получает значения напряжения и тока о двух каналах от импульсного регулируемого источника питания через СОМ порт. Отображает эти значения в виде цифровых значений, так же планируется показать динамику изменения величин в виде графиков, вот с этим и проблема. Сами графики и координатная сетка рисуются. Вопрос: Как сделать сетку не сплошной линией, а пунктиром, при этом оставив линию графика сплошной линией, т.е свойство BordStyle должно быть применено, только к сетке. Сетка и график рисуются в Picture, графическим методом Line.

'График
Sub graph_voltage_plus()

    If Form3.Check1 = 1 Then
  Call Paint_net_sours_chennal_plus
  

    Form3.Picture1.Line (0, (array_voltage_plus(1) * 10))-(0, (array_voltage_plus(1) * 10)), vbGreen

    
    For a = 2 To 39
    Form3.Picture1.Line -(a * 150, (array_voltage_plus(a) * 10)), vbGreen
    Next a
    End If
    
End Sub





'Сетка
Sub Paint_net_sours_chennal_plus()
Dim x1 As Single, y1 As Single
Dim x2 As Single, y2 As Single

Dim x3 As Single, y3 As Single
Dim x4 As Single, y4 As Single

Form3.Picture1.Cls

'Рисуем горизонтальные линии сетки
x1 = 0
x2 = Form3.Picture1.Width
For y1 = 0 To Form3.Picture1.Height Step Scale_net
y2 = y1

Form3.Picture1.DrawWidth = Net_DrawWidth

Form3.Picture1.Line (x1, y1)-(x2, y2), vbYellow
Next y1

'Рисуем вертикальные линии сетки
y3 = 0
y4 = Form3.Picture1.Height - Scale_net
For x3 = Form3.Picture1.Left To Form3.Picture1.Width Step Scale_net
x4 = x3
Form3.Picture1.Line (x3, y3)-(x4, y4), vbYellow
Next x3
End Sub