程序优化问题？高手请进

Question

将控件的常用属性保存在变量中。一般控件存在于DLL或OCX这类的外部程序中。调用DLL远比访问内存慢。所以对于那些放在循环体中的常用属性，如果将它们保存在变量中，那么速度将会有成百上千倍提升。我看到过很多这种优化方式的文章，但没有实例，能不能给出一两个这样优化的源代码，以供参考！

Answer 1

Option ExplicitPrivate Sub Form_Load()
    '本例是将1 到1000的数组合到一起,赋值给TEXTBOX控件.
    Dim i As Long
    Dim s As String, ls_Sum As String
    
    '1.未优化的例子
    For i = 1 To 1000
        Text1.Text = Text1.Text & CStr(i)
    Next
    
    '2.已优化的例子
    For i = 1 To 1000
        s = s & CStr(i)
    Next
    
    Text1.Text = s
End Sub