Кто-нибудь помнит, что в VB3 означало утверждение / команда "WaitOn"?

Question

В событии Form_Load этого ультралегкого приложения мне нужно транслитерировать в веб-приложение, это команда / оператор "WaitOn", который появляется сразу после сообщения об ошибке GoTo ...

Кто-нибудь помнит, что означает WaitOn?

Вот фрагмент кода:

Dim sCmd As String
Dim iFileHandle As Integer
Dim sFileName As String
Dim i As Integer
Dim sKeyWord As String
Dim sWindowPosition As String
Dim iWindowState As Integer
Dim sSystemId As String
Dim sMetrics() As String

On Error GoTo MainFormLoadErr
WaitOn
ReDim gsFundsUsed(0 To 0)
ReDim gsObjectsUsed(0 To 0)
Set gsActiveSpread = Nothing
.
.
.
MainFormLoadExit:
WaitOff
Close
Exit Sub

MainFormLoadErr:
MsgBox Error$(Err) & " in MainForm Load"
Resume MainFormLoadExit

Там есть соответствующий WaitOff, который я только что нашел. Я не думаю, что WaitOn является частью метки строки.

---

Как предположил @ C-Pound Guru, WaitOn и WaitOff были методами в одном из (многих) модулей программы. Из названий подпрограмм не был ясен тот факт, что их задачей было установить указатель мыши на курсор ожидания, а затем позже вернуться к значению по умолчанию.

Sub WaitOn ()
  On Error Resume Next
  Screen.MousePointer = 11
End Sub

Sub WaitOff ()
  On Error Resume Next
  Screen.MousePointer = 0
End Sub

Answer 1

Я никогда не сталкивался с командами WaitOn или WaitOff в VB. Возможно, вы захотите перепроверить код, чтобы увидеть, не написан ли метод WaitOn (а также метод WaitOff). Это не метка, поскольку метки VB заканчиваются двоеточием (:).

Answer 2

Что произойдет, если щелкнуть правой кнопкой мыши и перейти к определению? И работает ли код в настоящее время? Проверьте ссылки - может быть, это что-то из нестандартного dll.