Dim Ctrl() As Control

Private Sub UserForm_Click()
 Dim i As Integer
 For i = 0 To 2
      '多控件组的各种操作
 Next
End Sub

Private Sub UserForm_Initialize()
    ReDim Ctrl(2)
    Set Ctrl(0) = Me.CommandButton1
    Set Ctrl(1) = Me.CommandButton2
    Set Ctrl(2) = Me.CommandButton3
End Sub

七招破解Windows XP访问网络慢的故障
　　Windows XP的网上邻居有许多差强人意的地方：访问速度慢，无法访问其它主机……其实这些问题通过简单的设置都可以很好地解决。
　　在这之前先确保能够互相PING通。
　　1、开启guest账户。
　　2、允许Guest用户访问本机：打开组策略编辑器，依次选择「计算器配置→Windows设置→安全设置→本地策略→用户权利指派」，删除「拒绝从网络访问这台计算器」策略中的「GUEST」账号。
　　3、更改网络访问模式：打开组策略编辑器，依次选择「计算器配置→Windows设置→安全设置→本地策略→安全选项」，双击「网络访问：本地账号的共享和安全模式」策略，将「仅来宾—本地用户以来宾身份验证」改为「经典：本地用户以自己的身份验证」。
　　4、解除空口令限制：在系统「安全选项」中停用「账户：使用空白密码的本地账户只允许进行控制台登录」策略。
　　5、网络邻居看不到计算器：打开「控制面板→性能和维护→管理工具→服务」，启动里面的「Computer Browser」服务。
　　6、增加共享文件权限选项：依次打开「我的计算机→工具→活页夹属性→查看→高级设置」，将「简单文件共享(推荐)」前面的选择取消，若还有「Mickey Mouse」项也将其取消。
　　7、网络邻居不响应或者反应慢，关掉WinXP的计划任务服务(Task Scheduler) 到「控制面板/管理工具/服务」中打开「Task Scheduler」的属性对话框，停止该服务，再将启动类型设为「手动」。
　　关掉自动搜索的网络活页夹和打印机，到「网上邻居/文件/活页夹选项」中，点击查看最后一项，关闭自动搜索的网络活页夹和打印机这项。

Private Sub CommandButton2_Click()
    Dim i As Long
    Dim n As Integer
    Dim Pi As Double
    Pi = 4# * Atn(1#)
    Dim R As Long
    Randomize
    R = Int(Rnd * 100)
    Dim R1 As Long
    R1 = (0.5 - Rnd) * 199
    Dim L As Long
    L = Int(Rnd * 200)
    Dim S As Long
    S = Int(Rnd * 50)
    Dim M As Long
    M = Int(Rnd * 100)
    Dim A1 As Double
    Dim A2 As Double
    Dim P(2) As Double
    Dim P0(2) As Double
    Dim x As Double
    Dim y As Double
    
    Dim Fit() As Double
    Dim Sp As AcadSpline
    
    ReDim Fit(2)
    
    i = i + 1
    n = n + 1
    A1 = i * Pi / 180
    A2 = (R1 / R) * A1
    
    x = (-(R1 - R) * Cos(A1) - S * Cos(A2 - A1) + 100) * M
    y = ((R1 - R) * Sin(A1) - S * Sin(A2 - A1) + 100) * M
    
    P0(0) = x: P0(1) = y
    Fit(0) = x: Fit(1) = y: Fit(2) = 0
    
    'ThisDrawing.ModelSpace.AddPoint P0
    Do
        DoEvents
        
        i = i + 1
        n = n + 1
        ReDim Preserve Fit(n * 3 - 1)
        A1 = i * Pi / 180
        A2 = (R1 / R) * A1
    
        x = (-(R1 - R) * Cos(A1) - S * Cos(A2 - A1) + 100) * M
        y = ((R1 - R) * Sin(A1) - S * Sin(A2 - A1) + 100) * M
        P(0) = x: P(1) = y
        Fit(n * 3 - 3) = x: Fit(n * 3 - 2) = y: Fit(n * 3 - 1) = 0
        If n = 359 Then
            Set Sp = ThisDrawing.ModelSpace.AddSpline(Fit, Point3D(0, 0, 0), Point3D(0, 0, 0))
            Randomize
            'Sp.color = Int(Rnd * 255)
            n = 0
        End If
        If Abs(P(0) - P0(0)) < 10 ^ -2 And Abs(P(1) - P0(1)) < 10 ^ -2 Then Exit Do
        'If i > 10 ^ 4 Then Exit Do
     Loop
     MsgBox "R=" & R & "/ R1=" & R1 & "/ L=" & L
     Prompt "R=" & R & "/ R1=" & R1 & "/ L=" & L & "/ S=" & S & vbCrLf
     End
End Sub