ho risolto cosi:

Private Function GetMondayFromWeek(ByVal week As Integer, ByVal year As Integer) As Date

Dim dt As Date = New Date(year, 1, 1)
dim ngiorno1 as byte = nothing
dim lunedi1 as date = nothing

'controllo che giorno era il primo dell'anno e calcolo il primo lunedi dell'anno
ngiorno1 = dt.DayOfWeek
select case ngiorno1
case 0
'E' domenica
'Il lunedi è data dalla domenica meno 6 giorni
lunedi1 = dt.AddDays(-6)
case 1
'E' gia equivalente a lunedi
lunedi1 = dt
case > 1
'E' da calcolare fancendo ngiorni1 - ngiorni -1
lunedi1 = dt.AddDays(0 - (ngiorno1 -1))
End Select
'Trovato il lunedi della prima settimana calcolo il lunedi attuale
return lunedi1.AddDays(7 * (week - 1))
End Function


ciao