اجعل تنفيذ برنامجك اسرع!

ارجو من كل الاعضاء المشاركة فى هذا الموضوع للمقارنة بين الاكواد الاسرع والابطأ فى التنفيذ

وانا سأبدأ بهذه الامثلة

 ' هذه الشفرة بطيئة
    If Test1 And Test2 Then
        Debug.Print "صحيح"
    End If

     ' Test1 إذا لم ينجح اختبار Test2 هذه الشفرة أسرع لأنه لن يتم اختبار 
    If Test1 Then
        If Test2 Then
            Debug.Print "صحيح"
        End If
    End If

'============================================
    ' هذه الشفرة بطيئة
    If MyFunction = True Then
        MyCmd.Enabled = True
    Else
        MyCmd.Enabled = False
    End If
    ' هذه الشفرة أسرع 
        MyCmd.Enabled = (MyFunction = True)
    ' وهذه الأفضل
        MyCmd.Enabled = MyFunction
'============================================

    ' هذه الشفرة بطيئة
    For I = 1 To 10
        MyCmd(I).Enabled = MyFunction
    Next
    'MyFunction وهذه أسرع لأنه في الشيفرة السابقة سيتم تنفيذ الوظيفة
    'عشر مرات أما في الثانية فسيتم تنفيذها مرة واحدة
     MyResult = MyFunction
    For I = 1 to 10
        MyCmd(I).Enabled = MyResult
    Next

ارجو من الاعضاء اضافة مشاركات بنفس الطريقة للمقارنة بين الاكواد الاسرع والابطأ فى التنفيذ