Проблема масштабирования

[Чудик]

Есть MDI, есть подчиненная форма, на форме FlexGrid ...
При развороте MDI подчиненная форма тоже разворачивается, но Grid имеет прежние размеры.
Задача - заставить Grid разварачиваться до границ MDI тоже.
Попробовал так:

Код: Выделить всё

Dim r As RECT
    h = GetWindowRect(frmMDI.hwnd, r)
    hh = r.Right - r.Left
    hhh = r.Bottom - r.Top
    oldScaleMode = Me.ScaleMode
    Me.ScaleMode = vbPixels
    Me.MSFlexGrid1.Width = hh
    Me.MSFlexGrid1.Height = hhh
    Me.ScaleMode = oldScaleMode


размеры Grid меняются, но не так, как нужно.
И тут я начал понимать, что чего-то не понимаю ...

[Konst_One]

а зачем все так сложно.
не проще ли в событии ресайз соответствующего окна-потомка вставить код:

Код: Выделить всё

GRID.Move 0,0,Me.ScaleWidth, Me.ScaleHeight


[Чудик]

Спасибо за помощь, Konst_One!
В самом деле проще, а усложняю я всегда (натура такая кривая), но пытаюсь исправиться ...