Imports System

Public Module Module1

    Public Sub Main()

        Dim timerClick As Timer

        timerClick =  New Timer()

        Console.WriteLine("should be True because Tag Is Nothing")

        Console.WriteLine(String.IsNullOrEmpty(timerClick.Tag))

        Console.WriteLine("=======")

        timerClick =  New Timer()

        timerclick.Tag = Nothing        

        Console.WriteLine("should be True because Tag Is Nothing")

        Console.WriteLine(String.IsNullOrEmpty(timerClick.Tag))

        Console.WriteLine("=======")

        timerClick =  New Timer()

        timerclick.Tag = 1      

        Console.WriteLine("should be True because 1 is not Nothing")

        Console.WriteLine(String.IsNullOrEmpty(timerClick.Tag))

        Console.WriteLine("=======")

        timerClick =  New Timer()

        timerclick.Tag = "1"        

        Console.WriteLine("should be True because 1 is not Nothing")

        Console.WriteLine(String.IsNullOrEmpty(timerClick.Tag))

        Console.WriteLine("=======")

    End Sub

    Public Class Timer

        Public Tag As Object

    End Class

End Module