Private Sub Command1_Click()
Picture1.Cls
Picture1.ScaleMode = 0
Picture1.ScaleMode = 3
Picture1.Scale (-1, 12)-(2, -12)
Picture1.Drawstyle=0 '实线
Picture1.Line (-1, 0)-(2, 0), vbBlue
Picture1.Drawstyle=3 '点画线
Picture1.Line (0, 10)-(0, -10), vbRed
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024