Contoh Fungsi API GetTickCount Dalam VB6

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

Private Sub Command1_Click()

    Dim StartTime As Long
    Dim EndTime As Long
    Dim M As Long
    Dim K As Long
    Dim X As Double


    For M = 1 To 10

        StartTime = GetTickCount

        For K = 1 To 10000000
            X = X * 1.01
            X = X / 1.01
        Next K

        EndTime = GetTickCount

        List1.AddItem EndTime - StartTime
        DoEvents

    Next M

End Sub