mcs/btests/TypeOf.vb

   1 Imports System
   2
   3 Module M
   4         Class Test1
   5         End Class
   6
   7         Class Test2
   8         End Class
   9
  10         Sub Main
  11                 Dim o As Object
  12                 o = new Test1()
  13                 If Not TypeOf o Is Test1 Then
  14                         Throw New Exception("#A1: TypeOf failed")
  15                 End If
  16                 If TypeOf o Is Test2 Then
  17                         Throw New Exception("#A2: TypeOf failed")
  18                 End If
  19         End Sub
  20 End Module
  21