代码很简单，动态生成52*20组控件，直接复制到空工程里即可，不需要添加任何东西。可是不知道运行到一半多，不报任何错，就是卡在那不往下运行。望大家拷贝代码帮忙参考一下

Private Sub Form_Load()
    For j = 1 To 52
        For i = 1 To 20
            Dim Txt1 As TextBox
            Dim Txt2 As TextBox
            Dim Txt3 As TextBox
            Dim Txt4 As TextBox
            Dim Txt5 As TextBox
            Dim Txt6 As TextBox
            Dim Txt7 As TextBox
            Dim Txt8 As TextBox
            Dim Txt9 As TextBox
            Dim Txt10 As TextBox
            Dim Txt11 As TextBox
            Dim Txt12 As TextBox
            Dim Txt13 As TextBox
            Dim Txt14 As TextBox
            Dim Txt15 As TextBox
            Dim Txt16 As TextBox
            Dim Txt17  As TextBox
            Dim Txt18 As TextBox
            Dim Txt19 As TextBox
            Dim Txt20 As TextBox
            Dim Txt21 As TextBox
            Dim Txt22 As TextBox
            
            Set Txt1 = Me.Controls.Add("VB.TextBox", "Txt1_Hello" & j & "_" & i)
            Txt1.Move 0, 0
            Txt1.Width = 500
            Txt1.Height = 300
            Txt1.Visible = True
            Txt1.BorderStyle = 1
            
            Set Txt2 = Me.Controls.Add("VB.TextBox", "Txt2_Hello" & j & "_" & i)
            Txt2.Move Txt1.Width * (2 - 1), 0
            Txt2.Width = 500
            Txt2.Height = 300
            Txt2.Visible = True
            Txt2.BorderStyle = 1
            
            Set Txt3 = Me.Controls.Add("VB.TextBox", "Txt3_Hello" & j & "_" & i)
            Txt3.Move Txt1.Width * (3 - 1), 0
            Txt3.Width = 500
            Txt3.Height = 300
            Txt3.Visible = True
            Txt3.BorderStyle = 1
        
            Set Txt4 = Me.Controls.Add("VB.TextBox", "Txt4_Hello" & j & "_" & i)
            Txt4.Move Txt1.Width * (4 - 1), 0
            Txt4.Width = 500
            Txt4.Height = 300
            Txt4.Visible = True
            Txt4.BorderStyle = 1
        
            Set Txt5 = Me.Controls.Add("VB.TextBox", "Txt5_Hello" & j & "_" & i)
            Txt5.Move Txt1.Width * (5 - 1), 0
            Txt5.Width = 500
            Txt5.Height = 300
            Txt5.Visible = True
            Txt5.BorderStyle = 1
        
            Set Txt6 = Me.Controls.Add("VB.TextBox", "Txt6_Hello" & j & "_" & i)
            Txt6.Move Txt1.Width * (6 - 1), 0
            Txt6.Width = 500
            Txt6.Height = 300
            Txt6.Visible = True
            Txt6.BorderStyle = 1
        
            Set Txt7 = Me.Controls.Add("VB.TextBox", "Txt7_Hello" & j & "_" & i)
            Txt7.Move Txt1.Width * (7 - 1), 0
            Txt7.Width = 500
            Txt7.Height = 300
            Txt7.Visible = True
            Txt7.BorderStyle = 1
        
            Set Txt8 = Me.Controls.Add("VB.TextBox", "Txt8_Hello" & j & "_" & i)
            Txt8.Move Txt1.Width * (8 - 1), 0
            Txt8.Width = 500
            Txt8.Height = 300
            Txt8.Visible = True
            Txt8.BorderStyle = 1
        
            Set Txt9 = Me.Controls.Add("VB.TextBox", "Txt9_Hello" & j & "_" & i)
            Txt9.Move Txt1.Width * (9 - 1), 0
            Txt9.Width = 500
            Txt9.Height = 300
            Txt9.Visible = True
            Txt9.BorderStyle = 1
        
            Set Txt10 = Me.Controls.Add("VB.TextBox", "Txt10_Hello" & j & "_" & i)
            Txt10.Move Txt1.Width * (10 - 1), 0
            Txt10.Width = 500
            Txt10.Height = 300
            Txt10.Visible = True
            Txt10.BorderStyle = 1
        
            Set Txt11 = Me.Controls.Add("VB.TextBox", "Txt11_Hello" & j & "_" & i)
            Txt11.Move Txt1.Width * (11 - 1), 0
            Txt11.Width = 500
            Txt11.Height = 300
            Txt11.Visible = True
            Txt11.BorderStyle = 1
        
            Set Txt12 = Me.Controls.Add("VB.TextBox", "Txt12_Hello" & j & "_" & i)
            Txt12.Move Txt1.Width * (12 - 1), 0
            Txt12.Width = 500
            Txt12.Height = 300
            Txt12.Visible = True
            Txt12.BorderStyle = 1
        
            Set Txt13 = Me.Controls.Add("VB.TextBox", "Txt13_Hello" & j & "_" & i)
            Txt13.Move Txt1.Width * (13 - 1), 0
            Txt13.Width = 500
            Txt13.Height = 300
            Txt13.Visible = True
            Txt13.BorderStyle = 1
        
            Set Txt14 = Me.Controls.Add("VB.TextBox", "Txt14_Hello" & j & "_" & i)
            Txt14.Move Txt1.Width * (14 - 1), 0
            Txt14.Width = 500
            Txt14.Height = 300
            Txt14.Visible = True
            Txt14.BorderStyle = 1
        
            Set Txt15 = Me.Controls.Add("VB.TextBox", "Txt15_Hello" & j & "_" & i)
            Txt15.Move Txt1.Width * (15 - 1), 0
            Txt15.Width = 500
            Txt15.Height = 300
            Txt15.Visible = True
            Txt15.BorderStyle = 1
        
            Set Txt16 = Me.Controls.Add("VB.TextBox", "Txt16_Hello" & j & "_" & i)
            Txt16.Move Txt1.Width * (16 - 1), 0
            Txt16.Width = 500
            Txt16.Height = 300
            Txt16.Visible = True
            Txt16.BorderStyle = 1
        
            Set Txt17 = Me.Controls.Add("VB.TextBox", "Txt17_Hello" & j & "_" & i)
            Txt17.Move Txt1.Width * (17 - 1), 0
            Txt17.Width = 500
            Txt17.Height = 300
            Txt17.Visible = True
            Txt17.BorderStyle = 1
        
            Set Txt18 = Me.Controls.Add("VB.TextBox", "Txt18_Hello" & j & "_" & i)
            Txt18.Move Txt1.Width * (18 - 1), 0
            Txt18.Width = 500
            Txt18.Height = 300
            Txt18.Visible = True
            Txt18.BorderStyle = 1
        
            Set Txt19 = Me.Controls.Add("VB.TextBox", "Txt19_Hello" & j & "_" & i)
            Txt19.Move Txt1.Width * (19 - 1), 0
            Txt19.Width = 500
            Txt19.Height = 300
            Txt19.Visible = True
            Txt19.BorderStyle = 1
        
            Set Txt20 = Me.Controls.Add("VB.TextBox", "Txt20_Hello" & j & "_" & i)
            Txt20.Move Txt1.Width * (20 - 1), 0
            Txt20.Width = 500
            Txt20.Height = 300
            Txt20.Visible = True
            Txt20.BorderStyle = 1
        
            Set Txt21 = Me.Controls.Add("VB.TextBox", "Txt21_Hello" & j & "_" & i)
            Txt21.Move Txt1.Width * (21 - 1), 0
            Txt21.Width = 500
            Txt21.Height = 300
            Txt21.Visible = True
            Txt21.BorderStyle = 1
        
            Set Txt22 = Me.Controls.Add("VB.TextBox", "Txt22_Hello" & j & "_" & i)
            Txt22.Move Txt1.Width * (22 - 1), 0
            Txt22.Width = 500
            Txt22.Height = 300
            Txt22.Visible = True
            Txt22.BorderStyle = 1
        Next
    Next
End Sub

解决方案 »

  1.   

    错误在于  Txt22.Width = 500 
                Txt22.Height = 300 
                Txt22.Visible = True 
                Txt22.BorderStyle = 1 这样的参数设置不能在于循环体里面
    应该设在Load窗体里。那样，就正常了
      

  2.   

    Dim Txt1 As TextBox 
                Dim Txt2 As TextBox 
                Dim Txt3 As TextBox 
                Dim Txt4 As TextBox 
                Dim Txt5 As TextBox 
                Dim Txt6 As TextBox 
                Dim Txt7 As TextBox 
                Dim Txt8 As TextBox 
                Dim Txt9 As TextBox 
                Dim Txt10 As TextBox 
                Dim Txt11 As TextBox 
                Dim Txt12 As TextBox 
                Dim Txt13 As TextBox 
                Dim Txt14 As TextBox 
                Dim Txt15 As TextBox 
                Dim Txt16 As TextBox 
                Dim Txt17  As TextBox 
                Dim Txt18 As TextBox 
                Dim Txt19 As TextBox 
                Dim Txt20 As TextBox 
                Dim Txt21 As TextBox 
                Dim Txt22 As TextBox 这个声明也不能在于循环体里，应该在于最上面