Delay

Dim returnValue As Int
Dim objBCrypt As BCrypt 
   returnValue = ShowLoginScreen(False)
   Dim okToMoveOn As Boolean : okToMoveOn = False   
   Do While Not(okToMoveOn)
      If returnValue = DialogResponse.POSITIVE Then
         ShowProgress
         DoEvents 
         If objBCrypt.checkpw(passwordToCheck,passwordHashString) Then
         'Some irrelevant code but okToMoveOn set to true to exit loop
         Else
         'Some irrelevant code
         End If
      Else
         'Some irrelevant code but okToMoveOn set to true to exit loop
      End If
   Loop

Sub ShowProgress
   Log("Show progress started")
   ' Don't reshow if already running (reshow is a visible switch)
   If ProgressBarVisible = False Then
      ProgressBarVisible = True
      ProgressDialogShow2("Please wait loading...", False)
      DoEvents 
   End If
End Sub