مدت روشن بودن سیستم 

تابع زیر مدت زمانی که سیستم روشن است را برمی گرداند:

Private Declare Function GetTickCount Lib "kernel32" () As Long

این تابع را در قسمت General فرم تعریف کنید حال در رویداد Load فرم می نویسیم:

&Retval = GetTickCount

"MsgBox Str$(Fix(Retval / 60000)) + " Minutes you turned On PC

در بالا مقدار برگشتی تابع تقسیم بر 60000 می شود؛چون تابع بر حسب میلی ثانیه خروجی می دهد.

منتظر نظرات و پیشنهادات شما دوستان عزیز هستم...