LOAD批量载入控件

Question

用LOAD 循环载入256个自定义控件然后自动排列，总是会出现有个别的不显示，而且不是固定某一个！我试了一下载入TEXTBOX也一样也会出现这样的情况! 大家有没遇到过这样的问题，该如何解决

Answer 1

是不是刷新的问题？
加入Refresh语句试一试

Answer 2

测试加载499个可以正常显示，你试一下
先添加一个txtLoad(0) 控件 Textbox
   Private Sub Form_Load()
    Dim i As Long
    Dim lX As Long, lY As Long
    
    For i = 1 To 499
        Load txtLoad(i)
        If i Mod 20 = 0 Then
            lY = txtLoad(i - 1).Top + txtLoad(i - 1).Height + 10
            lX = txtLoad(0).Left
        Else
            lY = txtLoad(i - 1).Top
            lX = txtLoad(i - 1).Left + txtLoad(i - 1).Width + 10
        End If
        txtLoad(i).Text = i
        txtLoad(i).Move lX, lY
        txtLoad(i).Visible = True
    Next
End Sub