Data Types VB.Net

Public Enum Status As Integer
   Late = -1
   OnTime = 0
   Early = 1
End Enum
Public Module Example
   Public Sub Main()
      Dim status As Status = Status.OnTime
      Console.WriteLine("Arrival Status: {0} ({0:D})", status)
   End Sub
End Module