Dim aaaaaa as *dword aaaaaa[0] = 3512
Declare Sub RaiseException Lib"kernel32" ( dwExceptionCode As DWord, dwExceptionFlags As DWord, nNumberOfArguments As DWord, lpArguments As **DWord ) CONST EXCEPTION_NONCONTINUABLE = &H0001 Const EXCEPTION_FLT_INVALID_OPERATION = &HC0000090 RaiseException( _ EXCEPTION_FLT_INVALID_OPERATION, EXCEPTION_NONCONTINUABLE, NULL, NULL)