我在采集温度画实时曲线的时候，始终不能把原点设置在我想设的位置，还请各位大神帮帮忙
如下图 每一个方格的距离是500，纵坐边为时间（S）

If MSComm1.CommEvent = comEvReceive Then
        For i = 2 To 5
            temp = temp * 10 + val(Mid(indata, i, 1)) '分析数据，mid(,,)取字符串中特定数量的的字符，可指定开始获取位置和长度
        Next i
        temp1 = temp / 2
      
        Picture2(1).Line (temp_bufx, temp_bufy)-(time_temp * 50 + 500, 3500 - temp1), vbRed
'根据得到的数据值和当前的时间以及原有的数据画出一条直线
        temp_bufx = time_temp * 50 + 500        '存储当前数据，以方便下次使用
        temp_bufy = 3500 - temp1
        time_temp = time_temp + 1           '时间值增加1
    End If[/code]