RosettaCodeData/Task/Exceptions/Visual-Basic/exceptions-1.vb

8 lines
106 B
VB.net

Sub foo1()
err.raise(vbObjectError + 1050)
End Sub
Sub foo2()
Error vbObjectError + 1051
End Sub