Visual Basic.NET - formato de fecha

quiero mostrar una fecha en un label de la siguiente manera:
Miércoles 11 de Julio de 2007 16:35:00

lo hago de la siguiente manera:
lblFecha.Text = DateTime.Now.ToString("dddd d \de MMMM \de yyyy HH:mm:ss")

pero eso me escribe el dia y el mes en minuscula:
miércoles 11 de julio de 2007 16:35:00

como hago para que la primer letra del dia y del mes esten en mayuscula?

' Prueba de esta manera quiza te sirva...

lblfecha.text = fechaletras(DateTime.Now.ToString("dddd d \de MMMM \de yyyy HH:mm:ss")

Public Shared Function fechaletras(ByVal MiCadena As String) As String
Return StrConv(MiCadena, vbProperCase)
End Function

hola QWNET !!
gracias por responderme.

el problema es que al hacer un propercase lo que obtengo es:
Miércoles 11 De Julio De 2007 16:35:00
o sea los "de" tambien me los pone con la primer letra en mayuscula.

'OJO quite el de por , en lblfecha.text=
Me.lblfecha.Text = fechaletras(DateTime.Now.ToString("dddd d \, MMMM \, yyyy
HH:mm:ss"))
'aqui esta tu solucion
Dim sacarfecha As String
Dim datosfecha(2) As Object, pasarfecha(2) As Object
sacarfecha = Trim(lblfecha.Text)
datosfecha = Split(sacarfecha, ",")
pasarfecha(0) = datosfecha(0) ' obtener dia
pasarfecha(1) = datosfecha(1) ' obtener mes
pasarfecha(2) = datosfecha(2) ' obtener hora
Me.lblfecha.Text = pasarfecha(0) + "de" + pasarfecha(1) + "de" + pasarfecha(2)

' bueno a mi me funciono o por lo menos me saco en la forma que tu quieres que salga desplegado.

'OTRA FORMA remplace el de por el signo - pues la , puede ir despues del dia en un formato mucho + formal

Me.lblfecha.Text = fechaletras(DateTime.Now.ToString("dddd, d \- MMMM \- yyyy HH:mm:ss"))
Dim sacarfecha As String
Dim datosfecha(2) As Object
sacarfecha = Trim(lblfecha.Text)
datosfecha = Split(sacarfecha, "-")
Me.lblfecha.Text = datosfecha(0) + "de" + datosfecha(1) + "de" + datosfecha(2)
End Sub

Public Shared Function fechaletras(ByVal MiCadena As String) As String
Return StrConv(MiCadena, vbProperCase)
End Function

' si te sirvio favor de indicarlo aqui mismo

tal vez lo puedas hacer asi

Replace(StrConv(Format(DateTime.Now, "dddd, dd \de MMMM \de yyyy."), VbStrConv.ProperCase), "De", "de")

Te la comiste... que bien.... !!!! una solucion mucho mas simplificada