设计一个模拟8位数字LED显示器的程序

Question

各位高手，小弟由于水平所限有求于各位（急用，越快越好！！！！）
2.基本要求：
（1）要求使用面向对象和结构化程序设计的编程思路。
（2）LED显示器是由控件数组构成。
（3）最后完成的程序界面应该由用户输入数字，由LED显示器显示。
1.动态数组的建立
利用load 控件数组名（下标）语句 建立控件数组。并为每个控件数组元素设置大小、位置（参考附录生成象棋棋盘的程序）。
2.数字的显示
依据存储的EI数组对相应的控件的背景颜色属性进行设置。就是在一个text文本框中输入8个数字（注意：只能输入8个）点击“显示”在form（相当于显示屏）上显示相应的数字
这是给的参考附录：
动态生成象棋棋盘的程序。
先建立一个控件label1，index属性置为0
Private Sub Form_Load()
    '当程序运行时显示形成的棋盘方格
    Dim mtop As Integer, mleft As Integer, i As Integer, j As Integer
    mtop = 0      '棋盘顶边初值
    For i = 1 To 8  'i为棋格的行号
        mleft = 50  '棋盘左边位置
        For j = 1 To 8  'j为棋盘列号
            k = (i - 1) * 8 + j   '在第i行第j列产生1个棋格
            Load Label1(k)
            'iif函数根据表达式的值，返回两部分中的其中一个。
            '利用iif函数根据行、列号关系使棋格的背景黑（0）白（15）交替改变
            Label1(k).BackColor = IIf((i + j) Mod 2 = 0, QBColor(0), QBColor(15))
            Label1(k).Visible = True
            Label1(k).Top = mtop  '产生的控件定位
            Label1(k).Left = mleft
            mleft = mleft + Label1(0).Width
        Next j
        mtop = mtop + Label1(0).Height   '为下一行控件确定top位置
    Next i
End Sub