VB.Net/Language Basics/Macro

#Const DEBUG_LEVEL

<source lang="vbnet"> Imports System Public Class MainClass

   #Const DEBUG_LEVEL = 2
   
   Shared Sub Main()
       #If DEBUG_LEVEL >= 1 Then
          Console.WriteLine("DEBUG_LEVEL >= 1")
       #End If
       
       " Check for a 7-digit phone number.
       #If DEBUG_LEVEL >= 2 Then
          Console.WriteLine("DEBUG_LEVEL >= 2")
       #End If
       
   End Sub

End Class

      </source>

Macro in VB.Net

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main()

1. If CONFIG = "Debug" Then

       System.Console.WriteLine("Debug")

1. ElseIf CONFIG = "Release" Then

       System.Console.WriteLine("Release")

1. ElseIf CONFIG = "InterimBuild" Then

       System.Console.WriteLine("InterimBuild")

1. Else

       System.Console.WriteLine("Unknown build type")

1. End If

   End Sub

End Class

      </source>