Код
#Include "windows.bi"
Dim Shared As Integer Ptr pPtrSub
Sub EventHandler()
MessageBox(0,"Ошибка в программе, приложение будет закрыто" ,"Ошибка",0)
End
End Sub
pPtrSub = Cast(Any Ptr,@EventHandler())
Asm
push [pPtrSub]
mov eax,dword ptr FS:[0]
push eax
mov dword ptr FS:[0],esp
End Asm
Dim As Integer Ptr pInt = 5
? *pInt
В данной программе я специально пытаюсь получить значение из несуществующего адреса. Я знаю, что есть On Error и On Local Error, которые гораздо удобнее, но так уж попалось на глаза, решил выложить 
