heres a long way of doing it
put this in your form load

Dim intMonth As Integer
Dim strMonth As String
DateTimePicker1.Visible = False
intMonth = DateTimePicker1.Value.Month
Select Case intMonth
Case 1
strMonth = "January"
Case 2
strMonth = "February"
Case 3
strMonth = "March"
Case 4
strMonth = "April"
Case 5
strMonth = "May"
Case 6
strMonth = "June"
Case 7
strMonth = "July"
Case 8
strMonth = "August"
Case 9
strMonth = "September"
Case 10
strMonth = "October"
Case 11
strMonth = "November"
Case 12
strMonth = "December"


End Select

TextBox1.Text = DateTimePicker1.Value.DayOfWeek.ToString & ", " & strMonth & " " & DateTimePicker1.Value.Day & ", " & DateTimePicker1.Value.Year


db