' Declare the DateTimePicker.
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker


Private Sub InitializeDateTimePicker()

    ' Construct the DateTimePicker.
    Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker

    'Set size and location.
    Me.DateTimePicker1.Location = New System.Drawing.Point(40, 88)
    Me.DateTimePicker1.Size = New Size(160, 21)
    
    ' Set the alignment of the drop-down MonthCalendar to right.
    Me.DateTimePicker1.DropDownAlign = LeftRightAlignment.Right

    ' Set the Value property to 50 years before today.
    DateTimePicker1.Value = (DateTime.Now.AddYears(-50))

    'Set a custom format containing the string "of the year"
    DateTimePicker1.Format = DateTimePickerFormat.Custom
    DateTimePicker1.CustomFormat = "MMM dd, 'of the year' yyyy "

    ' Add the DateTimePicker to the form.
    Me.Controls.Add(Me.DateTimePicker1)
End Sub

Option Strict On
imports System
imports System.Drawing
imports System.Windows.Forms

public class DTPicker : inherits Form

  dim dtp as DateTimePicker

  public sub New()
    Size = new Size(400,300)
    AddHandler me.Load, AddressOf me_Load

    dtp = new DateTimePicker()
    dtp.Parent = me
    dtp.Location = new Point(20,20)
    dtp.Size = new Size(ClientSize.Width - 40, dtp.PreferredHeight)
    dtp.Anchor = AnchorStyles.Top or AnchorStyles.Left or AnchorStyles.Right
    dim fnt as new Font("Times New Roman", 16)
    dtp.CalendarFont = new Font(fnt, FontStyle.Bold or FontStyle.Italic)
    dtp.CalendarForeColor = Color.Red
    dtp.CalendarMonthBackground = Color.Yellow
    dtp.CalendarTitleBackColor = Color.Lime
    dtp.CalendarTitleForeColor = Color.Blue
    dtp.CalendarTrailingForeColor = Color.FromArgb(255,192,192)
    dtp.CustomFormat = "dddd,MMMM d, yyyy 'at' h:mm:ss tt"
    dtp.Format = DateTimePickerFormat.Custom
    dtp.DropDownAlign = LeftRightAlignment.Right
    dtp.ShowUpDown = false      ' default
    AddHandler dtp.ValueChanged, AddressOf dtp_ValueChanged

  end sub

  public shared sub Main() 
    Application.Run(new DTPicker())
  end sub

  private sub UpdateLabels()
    Console.WriteLine(dtp.Value.ToString())
    Console.WriteLine(dtp.Value.ToLongDateString())
    Console.WriteLine(dtp.Value.ToLongTimeString())
    Console.WriteLine(dtp.Value.ToShortDateString())
    Console.WriteLine(dtp.Value.ToShortTimeString())
  end sub

  private sub me_Load(ByVal sender as object,ByVal e as EventArgs)
    UpdateLabels()
  end sub

  private sub dtp_ValueChanged(ByVal sender as object,ByVal e as EventArgs)
    UpdateLabels()
  end sub

  private sub txtCustomString_TextChanged(ByVal sender as object,ByVal e as EventArgs)
    UpdateLabels()
  end sub
end class