mcs/btests/AssignmentStatements1.vb

   1 ' ErrorMessage: System.ArrayTypeMismatchException: Attempted to store
   2 ' an element of the incorrect type into the array.
   3
   4 Imports System
   5
   6 Module AssignmentStatements1
   7
   8     Sub main()
   9
  10         Dim sa(10) As String
  11         Dim oa As Object() = sa
  12         oa(0) = Nothing
  13         oa(1) = "Hello "
  14         oa(2) = "World"
  15         oa(3) = New Date(2004, 8, 17)
  16
  17     End Sub
  18
  19
  20 End Module