6 lines
119 B
VB.net
6 lines
119 B
VB.net
|
sub Assert( boolExpr, strOnFail )
|
||
|
|
if not boolExpr then
|
||
|
|
Err.Raise vbObjectError + 99999, , strOnFail
|
||
|
|
end if
|
||
|
|
end sub
|