mcs/class/Microsoft.VisualBasic/Test/standalone/5024.vb

   1 Imports Microsoft.VisualBasic \r
   2 Imports System\r
   3 Public Class TestClass\r
   4         Public Function Test()\r
   5                 'Begin Code\r
   6                         On Error Resume Next\r
   7                         Err.Raise (514, Nothing, "This is just a sample error", nothing, nothing)\r
   8                         If Err.Number <> 514 then\r
   9                                 Throw New Exception ("#Raise01")\r
  10                         End If\r
  11                         If Err.Description <> "This is just a sample error" then\r
  12                                 Throw New Exception ("#Raise02")\r
  13                         End If\r
  14                 'End Code\r
  15         End Function\r
  16 End Class\r