ник: kot_k_k
тем - же тестом прогнал с использованием
CurrentProject.Properties.Add "P_1", 10
t1 = GetTickCount()
For i = 1 To 1000000
v = v + CurrentProject.Properties.Item("P_1")
Next
получил -- 7922, меньше чем к форме но значительно дольше чем функция.