VB6.0编程，在picture1里画一条p关于h的曲线，line画的好像不对，而且无法将曲线用虚线表示，求修改

Question

For h = 0 To 300 Step 0.05
pin1 = (36.48 + 22.778 * 2.718 ^ (0.036 * (h - art))) * tb / (ri * 2 * mm1)
pout156 = ((36.48 + 22.778 * 2.718 ^ (0.036 * (h - 0.92 * 22- 22.3))) - 14) * 200 / (2000 * 2 * 0.49)
If pin1 <= pout156 Then
p = pin1
Else
p = pout156
End If
If p > 170.5 Then
p = 170.5
End If
Picture1.DrawWidth = 1
Picture1.DrawStyle = 2
Picture1.Line -(h, p), vbRed
Next h

坐标系什么都已经建好，但是画出来却在Y轴上

Answer 1

Picture1.Line -(h, p), vbRed
改为
Picture1.Line -(p, h), vbRed
看看行不？因为公式比较复杂，你的代码也不全，我这里无法测试。
另外，你的For循环的步长0.05太小了，即使用画点的方式也不可能画出虚线来的，你可以想象一下：在一个针尖大小的范围内画一条虚线是什么感觉？