修改程序——如何用vb画虚线和点划线

Question

部分程序如下，我想把红线转化为虚线，黑线转化为点划线，请问应该如何修改？
 '=====绘图：实测过程线和计算过程线  显示精度数据========================================================================
Dim MAXQ As SingleIf MaxQc >= MaxQo Then
    MAXQ = MaxQc
Else
    MAXQ = MaxQo
End If
With TChart2.Axis.Left
    .AutomaticMinimum = False
    .Minimum = 0
    .AutomaticMaximum = False
    .Maximum = MAXQ + 200
End WithWith TChart2.Axis.Bottom
    .AutomaticMinimum = False
    .Minimum = 0
    .AutomaticMaximum = False
    .Maximum = NNum
End With'''''''''''%%%%%%%%%%%%%%%%%%%%%%%%%
'With TChart2.Series(0)
'    .Clear
'    .Title = "GIUH 地面径流"
'    For I = 1 To NNum
'        .AddXY I, Qc_UH(I), "", vbBlue
'    Next I
'End With
'''''''''''%%%%%%%%%%%%%%%%%%%%%%%%%
With TChart2.Series(1)
    .Clear
    .Title = "实测流量"
    For I = 1 To NNum
        .AddXY I, Qo(I), "", vbGreen
    Next I
End With
'''''''''''%%%%%%%%%%%%%%%%%%%%%%%%%
With TChart2.Series(2)
    .Clear
    .Title = "地下径流"
    For I = 1 To NNum
        .AddXY I, QBasic(I), "", vbBlack
    Next I
End With
'''''''''''%%%%%%%%%%%%%%%%%%%%%%%%%
With TChart2.Series(3)
    .Clear
    .Title = "计算总流量"
    For I = 1 To NNum
        .AddXY I, Qc(I), "", vbRed
    Next I
End With
'''''''''''%%%%%%%%%%%%%%%%%%%%%%%%%
With TChart2.Series(4)
    .Clear
    .Title = "降雨"
    For I = 1 To NNum
        .AddXY I, AvePP(I), "", vbBlue
    Next I
End With