Segun te entiendo lo que quieres es mostrar los dias que corresponden la semana en la que estas (lunes, martes, miercoles...etc)
lo que debes hacer primero es obtener el dia de la semana en que te encuentras, algo como esto:
Código vb:
Ver originalDim dateValue As Date = new Date()
Dim diaSemana As Integer = dateValue.DayOfWeek()
Dim fechaAdicional as Date
Toma en consideracion que la funcion DayOfWeek te devuelve un valor cardinal inicial en cero (toma lunes=0, martes=1, miercoles=2, etc.)
Luego de ello solo necesitas obtener, para cada fecha que necesitas que se encuentre por debajo del valor del dia de la semana, la fecha menos el dia de la semana, y dejar tal cual los demas dias.
Código vb:
Ver originalfor i as Integer = 0 to i< 7 step 1
fechaAdicional = dateValue.AddDays(diaSemana-(diaSemana -i))
'Aca haces lo necesario para separar los valores y setearlos en los cuadros de texto que necesites,
'puedes usar un SWITCH CASE para determinar en cual lo iras a poner
next
PD.: Esto solo es ejemplificacion, puede que no funcione correctamente, Espero te sirva.