要用42个空间，并且有数据关系，要一个一个托吗。摆正位置

Question

做一个类似日历的界面每天要能显示几个小图标请给vb描述

Answer 1

控件数组啊，要哪些隐藏，就visible＝flase好了，呵呵

Answer 2

实现这样的效果，能给个例程吗？
http://bbs.pdafans.com/attachments/Cjk2_cl.gif

Answer 3

'做为例子，只是把窗体的所有TEXTBOX 的位置设置为 0，0
Private Sub Form_Load()
    Dim obj As Control
    For Each obj In Me
        If UCase(TypeName(obj)) = "TEXTBOX" Then
            obj.Left = 0
            obj.Top = 0
        End If
    Next
End Sub