even more colorizer tests

extensions/vb/test/colorize-fixtures/test.vb

@@ -0,0 +1,25 @@
+' 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