OpdrachtTekst=EigenFuncties.ReplaceBcTextSize(OpdrachtTekst,TextSize-1)
bbOpdracht.Text=OpdrachtTekst
'>>>>>> Uitrekening hoeveel regels en dan hoogte variabel maken voor zoveel mogelijk toelichting
Dim Counter As Int = OpdrachtTekst.Length-OpdrachtTekst.Replace(CRLF,"").Length
bbOpdracht.mBase.Height=(30+((16-TextSize)*8))*(Counter+1)
Dim BottomWv As Int=WvOpdracht.Top+WvOpdracht.Height
WvOpdracht.Top=bbOpdracht.mBase.Top+bbOpdracht.mBase.Height
If(WvOpdracht.Top+WvOpdracht.Height>BottomWv) Then WvOpdracht.Height=WvOpdracht.Height-((WvOpdracht.Top+WvOpdracht.Height)-BottomWv)
WvOpdracht.LoadHtml(HtmlToelichting)