update,

task1/task1-ticket1/_ref/Excel/Examples/usage_wait.bas

@@ -0,0 +1,33 @@
+Attribute VB_Name = "usage_wait"
+Private Assert As New Selenium.Assert
+Private Waiter As New Selenium.Waiter
+
+
+Private Sub Should_Wait_For_Delegate()
+  Dim driver As New ChromeDriver
+
+  ' without delegate
+  While Waiter.Not(WaitDelegate1(), timeout:=2000): Wend
+  
+  ' without delegate with argument
+  While Waiter.Not(WaitDelegate2(driver), timeout:=2000): Wend
+
+  ' with delegate on the driver
+  driver.Until AddressOf WaitDelegate1, timeout:=2000
+  
+  ' with delegate with argument
+  Waiter.Until AddressOf WaitDelegate1, driver, timeout:=2000
+  
+  ' with delegate without argument
+  Waiter.Until AddressOf WaitDelegate2, timeout:=2000
+End Sub
+
+
+Private Function WaitDelegate1()
+  WaitDelegate1 = True
+End Function
+
+
+Private Function WaitDelegate2(driver As WebDriver)
+  WaitDelegate2 = True
+End Function