VB.Net/Language Basics/With

With command

<source lang="vbnet"> Imports System.IO Module Module1

   Sub Main()
       Dim t As Today = New Today
       With t
           Console.WriteLine("Today: " & .TodayDate)
           Console.WriteLine("Day: " & .Day)
           Console.WriteLine("Month: " & .Month)
           Console.WriteLine("Year: " & .Year)
           Console.WriteLine("Day of week: " & .NumericDayOfWeek)
           Console.WriteLine("Day of week: " & .StringDayOfWeek)
       End With
   End Sub

End Module

   Class Today
       Public Shared TodayDate As DateTime = Now()
       Public Shared Day As Integer = Now.Day()
       Public Shared Month As Integer = Now.Month()
       Public Shared Year As Integer = Now.Year()
       Public Shared NumericDayOfWeek As Integer = Now.DayOfWeek()
       Public Shared StringDayOfWeek As String = Now.DayOfWeek.ToString()
   End Class
          
      </source>