Imports System

Public Module Module1

    Public Sub Main()

        Dim x as DateTime? = Nothing

        Dim y as DateTime? = If(False, Nothing, New DateTime())

        Console.WriteLine(x)

        Console.WriteLine(y)

    End Sub

End Module