chore(vscode): update to 1.53.2
These conflicts will be resolved in the following commits. We do it this way so that PR review is possible.
This commit is contained in:
@ -1,25 +0,0 @@
|
||||
' Copyright (c) Microsoft Corporation. All rights reserved.
|
||||
|
||||
Public Sub LongTask(ByVal Duration As Single, _
|
||||
ByVal MinimumInterval As Single)
|
||||
Dim Threshold As Single
|
||||
Dim Start As Single
|
||||
Dim blnCancel As Boolean
|
||||
|
||||
' The Timer property of the DateAndTime object returns the seconds
|
||||
' and milliseconds that have passed since midnight.
|
||||
Start = CSng(Timer)
|
||||
Threshold = MinimumInterval
|
||||
|
||||
Do While CSng(Timer)< (Start + Duration)
|
||||
' In a real application, some unit of work would
|
||||
' be done here each time through the loop.
|
||||
If CSng(Timer)> (Start + Threshold) Then
|
||||
RaiseEvent PercentDone( _
|
||||
Threshold / Duration, blnCancel)
|
||||
' Check to see if the operation was canceled.
|
||||
If blnCancel Then Exit Sub
|
||||
Threshold = Threshold + MinimumInterval
|
||||
End If
|
||||
Loop
|
||||
End Sub
|
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user