Программирование на Visual Basic

08. Этот пример показывает как с использованием API интерфейса и функция времени в миллисекундах с момента запуска Windows оперелить время открытия формы

' Функция времени в миллисекундах с момента запуска Windows
Private Declare Function apiTimeGetTime Lib "winmm.dll" Alias "timeGetTime" () As Long
Dim T0 As Long, T1 As Long

Private Sub Form_Open(Cancel As Integer)
    ' Устанавливаем начальное значение
    T0 = apiTimeGetTime()
    ' Определяем список
    Me.myList.RowSource = Me.myList.RowSource  ";Form_Open: "  ";"  T0  ";"  0
End Sub
Private Sub Form_Activate()
    T1 = apiTimeGetTime()
    Me.myList.RowSource = Me.myList.RowSource  ";Form_Activate: "  ";"  T1  ";"  T1 - T0
End Sub
Private Sub Form_Current()
    T1 = apiTimeGetTime()
    Me.myList.RowSource = Me.myList.RowSource  ";Form_Current: "  ";"  T1  ";"  T1 - T0
End Sub
Private Sub Form_Load()
    T1 = apiTimeGetTime()
    Me.myList.RowSource = Me.myList.RowSource  ";Form_Load: "  ";"  T1  ";"  T1 - T0
End Sub
Private Sub Form_Resize()
    T1 = apiTimeGetTime()
    Me.myList.RowSource = Me.myList.RowSource  ";Form_Resize: "  ";"  T1  ";"  T1 - T0
End Sub