MDI Child Form's are pissing me off!!

[SME]

Hi. I'm trying to make it so that if a child form's startup position makes any of it hidden outside of the MDIMain form, that it will revert back to the top of the MDIform and the cascading startuppositions will start over.

I know this isn't how I would code it, but maybe it will help you guys understand what I'm trying to do.

Dim Mr as Integer
Dim r as Integer
r=childform.right(I know this can't be done)
Mr=MDIForm.right

If r > Mr then,
childform.startupposition = 0,0
End If

If anyone can help me with this I would greatly appreciate it.

[Turin]

In the child form's load procedure...

If (Me.Left + Me.Width) > MDIForm.Width then
'Reset Start Position Here
End if