Untitled

Imports System
Imports Microsoft.VisualBasic

Module ExpressionLiteralsNothing
Public Structure MyStruct
Public Name As String
Public Number As Short
End Structure

        public A As MyStruct

        Sub Main()
                A = Nothing
                If A.Name <> Nothing Then
                        Throw New Exception ("Unexpected behavior. A.Name Should be Nothing ")
                End If
                If A.Number <> 0
                        Throw New Exception ("Unexpected behavior. A.Number Should be 0 ")
                End If
        End Sub
End Module