Public Sub New()
   ' Create a new DateTimePicker.
   Dim dateTimePicker1 As New DateTimePicker()
   Controls.AddRange(New Control() {dateTimePicker1})
   dateTimePicker1.CalendarFont = New Font("Courier New", 8.25F, FontStyle.Italic, GraphicsUnit.Point, CType(0, [Byte]))
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