數組控制me("crlName")的調用方法

數組控制me("crlName")的調用方法

Private Sub Form_Load()
   Me.ScaleMode = vbPixels
   For j = 0 To 2
     For i = 2 To 59
         Load Me("Picture" & j)(i)
         Me("Picture" & j)(i).BorderStyle = 0
         Me("Picture" & j)(i).BackColor = QBColor(11 + j * 2)
         Me("Picture" & j)(i).Move 35 + (i - 2) * 14, j ^ 2 * 7 + 7, 7, 7
         Me("Picture" & j)(i).Visible = True
     Next
   Next
End Sub