Я только что провёл тестирование ...
Public Sub MyHandler() Handles Complete
MsgBox("My Handler - Beginning 5 second sleep")
Threading.Thread.Sleep(5000)
MsgBox("My Handler - Awoken")
End Sub
Public Sub SomeFunction()
MsgBox("Some function - Raising Event")
RaiseEvent Complete()
MsgBox("Some function - After Event")
End Sub
Выход:
Некоторая функция - повышение события
Мой обработчик - начало 5 секундного сна
Мой Хендлер - Пробудился
Некоторая функция - после события