透明度无法改变
粗细可以修改 窗体的DrawWidth属性 默认为1
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.DrawWidth = 1
Picture1.Line (0, 0)-(100, 500), vbRed
Picture1.DrawWidth = 5
Picture1.Line -(1000, 1000), vbGreen
Picture1.DrawWidth = 9
Picture1.Line -(2000, 1000), vbBlue
End Sub