数组控制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