在连续窗体中如何表现同一幅图形的不同属性？

swo

我现在只有这么   Dim a, c

    Dim b As String

    a = Val(Me.字段1)    For c = 1 To a

        b = b & "■"

        'Debug.Print a

    Next

    Me.图像 = b字符少还行，如果多了就成问题将表里的图像字符数改成100