Private Function StartTimer(PauseTime as Integer)
Dim Start, Finish, TotalTime
    Start = Timer    ' Set start time.
    Screen.MousePointer = vbArrowHourglass
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
    Finish = Timer    ' Set end time.
    TotalTime = Finish - Start    ' Calculate total time.
    Shell strDrives & ":\Setup.exe", vbNormalFocus
    Screen.MousePointer = vbArrow
End Function