[Fareed2]

dim i as integer=0
DateTimePicker2.Value=dt3.Value
while i<val(day_c.Text)
DateTimePicker2.Value=DateTimePicker2.Value.adddays(1)
if DateTimePicker2.Value.dayofweek<>dayofweek.friday then i=i+1
end while