心脏线程序(VB6.0源代码编写) '注释：画抛物线 '清除picture1内的图形 Picture1.Cls 'Scale方法设定用户坐标系，坐标原点在Picture1中心 Picture1.ScaleMode = 0 Picture1.ScaleMode = 3 Picture1.Scale (-20, 20)-(20, -20) '设置绘线宽度 Picture1.DrawWidth = 1 '绘制坐标系的X轴及箭头线 Picture1.Line (-20, 0)-(20, 0), vbBlue Pic