Private Sub Command1_Click()
Picture1.CurrentX = 150
Picture1.CurrentY = 680
Picture1.ForeColor = vbRed
Picture1.Print "红色曲线代表A物质浓度与时间的关系"
Picture1.CurrentX = 150
Picture1.CurrentY = 440
Picture1.ForeColor = vbBlue
Picture1.Print "蓝色曲线代表B物质浓度与时间的关系"
Picture1.CurrentX = 150
Picture1.CurrentY = 200
Picture1.ForeColor = vbGreen
Picture1.Print "绿色曲线代表C物质浓度与时间的关系"
End Sub
可以尝试用 label 。。
也可以用api函数。。。