刘金玉的零基础VB教程058期：line画图及用法总结

Private Sub Command1_Click()
Line (100, 100)-(1000, 1000)
Line (1000, 1000)-(2000, 1000), vbRed
Line (3000, 1000)-(3600, 1000)
Line (3600, 1000)-(4000, 500)
End Sub
Private Sub Command2_Click()
Line (2000, 1000)-(3000, 2000), , B
End Sub
Private Sub Command3_Click()
Line (2200, 1200)-(2400, 1400), vbBlue, BF
Line (2600, 1200)-(2800, 1400), vbBlue, BF
Line (2300, 1600)-(2700, 1700), vbBlue, BF
End Sub