以上两位的方法都不行呀?你们瞧: 我是这样创建的:
  
 For j = 10 To Widt Step 10
  
    If GridLamp = False Then
    
         Unload "LineX" & (j)
 =========================================== 
    Else
     
     Set LineGrid = frmShowPic.Controls.Add("VB.line", "LineX" & j, Picin)
     Set lineG = LineGrid
     
     lineG.X1 = j * Scalk
     lineG.Y1 = 0
     lineG.X2 = j * Scalk
     lineG.Y2 = PicsideL(1).Height
     lineG.BorderColor = &HFFC0C0
     lineG.Visible = True
 
    End If如何动态创建控件数组?