line (x1,y1) (.y2), blue。就行了。在坐标后面再加上颜色就好了
随意线还是曲线图的线,曲线图的线不是一句二句能说清楚,随意线可以用Picture控件画
很简单啊:
Private Sub Command1_Click()
Picture1.Line (Picture1.Width / 2, 0)-(Picture1.Width / 2, Picture1.Height), vbRed
Picture1.Line (0, Picture1.Height / 2)-(Picture1.Width, Picture1.Height / 2), vbBlue
End Sub