Este codigo te debe servir, solo agrega el control MonthView
Dim dia As String
Dim mes As String
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Select Case MonthView1.DayOfWeek
Case 1
dia = "Domingo"
Case 2
dia = "Lunes"
Case 3
dia = "Martes"
Case 4
dia = "Miercoles"
Case 5
dia = "Jueves"
Case 6
dia = "Viernes"
Case 7
dia = "Sabado"
End Select
Select Case MonthView1.Month
Case 1
mes = "Enero"
Case 2
mes = "Febrero"
Case 3
mes = "Marzo"
Case 4
mes = "Abril"
Case 5
mes = "Mayo"
Case 6
mes = "Junio"
Case 7
mes = "Julio"
Case 8
mes = "Agosto"
Case 9
mes = "Septiembre"
Case 10
mes = "Octubre"
Case 11
mes = "Noviembre"
Case 12
mes = "Diciembre"
End Select
Text1.Text = dia & ", " & MonthView1.Day & " de " & mes & " del " & MonthView1.Year
End Sub
Pruebalo... Espero que te sirva...
