Private Sub Command1_Click()
Picture1.Line (1000, 1000)-(1000, 2000), RGB(255, 0, 0)
Picture1.Line (1000, 2000)-(2000, 2000), RGB(0, 255, 0)
Picture1.Line (2000, 2000)-(2000, 1000), RGB(0, 0, 255)
Picture1.Line (2000, 1000)-(1000, 1000), RGB(0, 0, 0)
End Sub
也可直接用api画
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024