哪一位有无好办法解决这个问题?

[genens]

picturebox和line问题
问题例子:
1.我先设计创建了一个picturebox1(0),line1(0)
2.然后我把line1(0)置入picturebox1(0)中
3.然后写了类似下述语句，
　　　for i=1 to 10
　　　　load picturebox1(i)
　　　 load line1(i)
　　　 picturebox1(i).visible=true
　　　 line1(i).visible=true
　　　next
4.结果:line1(i)全都不在相应的picturebox1(i)里，而是全都跑picturebox1(0)里去了，请问哪位兄弟靓女有无方法解决这一问题，就是要line1(i)产生到相应的picturebox1(0)里去。

[hisofty]

若line控件有container属性（我在网吧， 忘了），将其改为相应的picture即可

若无，那就改变他的x1，x2,y1,y2，改在picture的范围里

[nebbish]

Container 属性


返回或设置 Form 上控件的容器。在设计时不能使用。

语法

Set object.Container [= container]

Container 属性的语法包含下面部分：

部分 描述
object 对象表达式，其值是“应用于”列表中的一个对象。
container 一个对象表达式其值是能够作为别的控件容器使用的对象，按照说明的描述。


说明

下面的控件能够容纳别的控件：

Frame 控件


PictureBox 控件.


SSTab 控件

[道素]

你可以动态增加
Option Explicit
Dim WithEvents myLine As VB.Line

Private Sub Command1_Click()
Load Picture1(1)
Picture1(1).Top = Picture1(0).Top + Picture1(0).Height

Picture1(1).Visible = True
Set myLine = Me.Controls.Add("VB.Line", "Line2", Picture1(1))
myLine.Y1 = 500
myLine.X2 = 2000
myLine.Visible = True

End Sub

[射天狼]

Line是轻量级有控件,就是将x1，x2,y1,y2改在Picture的坐标范围内也不能显示在Picture的前面.

[射天狼]

同意:风尘鸟的想法.

[zhenglc]

linel(i).container = pictureboxl(i)

[danielinbiti]

Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 2
Load Picture1(i)
Load Line1(i)
Picture1(i).Visible = True
Picture1(i).Top = 0 '无用,为了看清楚结果
Picture1(i).Left = 200 * i '同上
Set Line1(i).Container = Picture1(i)
Line1(i).Visible = True
Next i
End Sub

[genens]

谢谢各路大侠！分数只是个象征，大家莫嫌少，谢谢了！