高手帮我改一下

我想要的功能是在drawLine中开放一个参数，就是每个几个点显示时间，这个参数就是几个点，还有个问题就是我的众坐标会移动~~帮忙改一下
Public Function loadLabel(numBar As Integer, iH_temp As Variant)
        Dim i As Integer, j As Integer
        With picDraw
            .ScaleHeight = 115
            .ScaleWidth = 4 * numBar
        End With        Dim temp As Integer
        
        picDraw.Cls
        For i = 1 To 4 * (numBar - 1) - 3 Step 4
         
'            picDraw.FillStyle = 5
'            picDraw.FillColor = vbBlue
            temp = iH_temp(j)
            picDraw.Line (i + 1, 105 - temp)-(i + 5, 105 - iH_temp(j + 1)), vbBlue
           j = j + 1
        Next
        picDraw.DrawWidth = 2
        picDraw.Line (1, 5)-(1, 105), vbRed
        picDraw.Line -(4 * numBar, 105), vbRed
        picDraw.DrawWidth = 1
End FunctionPublic Function loadLabel(numBar As Integer, iValue_lamp1 As Variant, iValue_lamp2 As Variant)  '贴标签
    Dim i As Integer, j As Integer, lamp1 As String, lamp2 As String
    For i = 1 To numBar
        Load lbTag(i) '加载lable
        Load lbTop(i)
    Next
    
    For i = 1 To 4 * numBar - 3 Step 4
             
             lamp1 = iValue_lamp1(j)
             lamp2 = iValue_lamp2(j)
             j = j + 1
            With lbTag(j)
                .Move i, 107, 2, 5
                .Caption = lamp1
                .BackStyle = 0
                .Alignment = 2
                .Visible = True
            End With
            
            With lbTop(j)
                .Move i + 0.1, 100 - lamp2, 2, 5
                .Caption = lamp2
                .BackStyle = 0
                .Alignment = 2
                .ForeColor = &HC000C0
                .Visible = True
            End With
           
        Next
End Function