Return InsideHeight during SubClass

[ALESSANDRO Baraldi]

I need to not Allow the User to DownSize the Form Under
a set Value on Vertical Size.

So i try to SubClass my Form, this code don't receive the continuos size
of the Form.

To refresh the size i need LiveUp the LeftButton and to click again.
The function work, after size Refresh, but it's too late, the size is just
too small.

How can i retrive the continuos dimension on form to control the
Min Size and exit SubClass....?

'This it's only a Part of Function

On My Form:

Public Function mProc(ByVal hWnd As Long, _
ByVal uMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Select case uMsg
Case WM_MOUSEMOVE
If m_fResizing Then
Select Case wParam
Case 61446 Or 61448 '61446=Vertical Up/Dovn[Size]
'61448=Diagonal
Up/Down[Size]

'If i'm going to DownSize i check the Size>MinSize

If Me.InsideHeight < m_HoldH Then 'If true i'm Reducing
If Me.InsideHeight < 500 Then Exit Function
m_HoldH = Me.InsideHeight
End If
End Select
End If
End Select

Thanks all