VB中可以实现程序的运行结果是添加line和shape控件吗？

Question

我想程序的运行结果是在一定的坐标处添加line控件和shape控件， 
具体怎么实现？
添加的控件可以用鼠标任意拖动吗？

Answer 1

添加可以，但是不能移动    
     Dim ln
    Set ln = Me.Controls.Add("VB.Line", "ln")
    With ln
        .X1 = 0: .Y1 = 0
        .X2 = 2000: .Y2 = 2000
        .Visible = True
    End With

Answer 2

不好意思，With ln 是什么？

Answer 3

先定义一个line或shape控件数组,用load line(integer).