Case WM_PAINT
        Dim as PAINTSTRUCT ps
        for iT as integer = wcGridStart to wcGridEnd
            if (iMap(iT-wcGridStart).flags AND MF_ISDOOR) then
                var hDC = BeginPaint(CTL(iT), @ps)
                'SetBkMode(hDC, TRANSPARENT) ' Draw text with transparent background

                Dim as string sOut = "D:"+Str(iMap(iT-wcGridStart).bExData2)
                DrawText(hDC, StrPtr(sOut), Len(sOut), _
                         @type<RECT>(0, 0, 32, 32), DT_EDITCONTROL OR DT_WORDBREAK)

                EndPaint(CTL(iT), @ps)
            end if
        next iT