Me.Picture1.DrawStyle = 4‘虚线
Me.Picture1.Line (0, 0)-(10000, 10000)
Me.Picture1.DrawStyle = 3
Me.Picture1.Line (0, 0)-(10000, 20000)
Me.Picture1.DrawStyle = 2
Me.Picture1.Line (0, 0)-(10000, 30000)
Me.Picture1.DrawStyle = 0‘实线
Me.Picture1.Line (0, 0)-(10000, 40000)
Me.Picture1.Line (0, 0)-(10000, 10000)
Me.Picture1.DrawStyle = 3
Me.Picture1.Line (0, 0)-(10000, 20000)
Me.Picture1.DrawStyle = 2
Me.Picture1.Line (0, 0)-(10000, 30000)
Me.Picture1.DrawStyle = 0‘实线
Me.Picture1.Line (0, 0)-(10000, 40000)