请问高手一条虚线如何画，常见的画法有几种？

Question

想绘制两个点如（0，50）－（300，50）之间的虚线。
请问高手如何画，常见的画法有几种？
请代码说明，谢谢！！

Answer 1

Private Sub Command1_Click()
   Me.DrawStyle = 2
   Form1.Line (0, 50)-(300, 50)
End Sub

Answer 2

Picture1.DrawStyle = 2
Picture1.Line (0, 50)-(300, 50)

Answer 3

Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.DrawStyle = 2
Picture1.Line (0, 50)-(300, 50)
End Sub
DrawStyle 属性
      返回或设置一个值，以决定图形方法输出的线型的样式。语法object.DrawStyle [= number]DrawStyle 属性语法包含下面部分：部分 描述 
Object 对象表达式，其值是“应用于”列表中的一个对象。 
Number 整数，指定线型，“设置值”中有详细描述。 
设置值number 的设置值为：常数 设置值 描述 
VbSolid 0 （缺省值）实线 
VbDash 1 虚线 
VbDot 2 点线 
VbDashDot 3 点划线 
VbDashDotDot 4 双点划线 
VbInvisible 5 无线 
VbInsideSolid 6 内收实线 
说明 若 DrawWidth 属性设置为大于 1， DrawStyle 属性设置值为 1 到 4 会画一条实线（ DrawStyle 属性值不改变）。若 DrawWidth 设置为 1， DrawStyle 产生的效果如前面表中的各设置值所述。

Answer 4

我坐标轴为Scale (0, 50)-(5000, 0)Me.DrawStyle = 2
   Form1.Line (0, 50)-(3000, 50)画出来后  肉眼看起来是实线啊 怎么解决？？？？ 注： 坐标系不能改。

Answer 5

//不过如果我想把线画粗一点可以吗？
不可以，如果是画实线，设置DrawWidth>1，画虚线DrawWidth只能是1