在command的单击事件中，编写代码，画一根线，还有其他的公式画第二根，但是我把其他的代码输入，单击command，两根就一起出来了，不能单击一下出一根
我想要单击command一次，画出一根线，再单击一次，再画出下一根线

我是用Picture1.Line (0, t)-(x4, y4)这个画直线的，这个怎么编写代码呢？谢谢啦

Dim x4, y4 As Single
    t = -20
    Pq = Pk(t)
    x4 = 622 * Pq / (101325 - Pq)
    y4 = t + x4 / 2000 * (2500 + 1.84 * t) - x4
    If x4 <= 42 And y4 <= 65 Then
       Picture1.Line (0, t)-(x4, y4), vbBlack
    ElseIf x4 > 42 And y4 < 65 Then
       x4 = 42
       y4 = t + x4 / 2000 * (2500 + 1.84 * t) - x4
     Picture1.Line (0, t)-(x4, y4), vbBlack
    ElseIf y4 > 65 Then
       y4 = 65
       x4 = (y4 - t) * 2000 / (500 + 1.84 * t)
        If x4 > 42 Then
          x4 = 42
          y4 = t + x4 / 2000 * (2500 + 1.84 * t) - x4
          Picture1.Line (0, t)-(x4, y4), vbBlack
       Else
       Picture1.Line (0, t)-(x4, y4), vbBlack
       End If
    End If
这是我那一根线的代码，下一根就是把t=-20改成t=-19

谢谢，可是还是两根一起出来啊！

谢谢啦，是我弄错了，代码是正确的，谢谢啦，

嗯，刚才是我弄错了，代码是正确的！谢谢啦