this will do it

VB Code:
  1. Private Sub Form_Load()

  2. DTPicker1.MaxDate = "12/30/01"

  3. DTPicker1.MinDate = "12/01/01"

  4. End Sub