Oops. I thought the called form didn't have the titlebar. Try this.
BTW it's sysmetric( 9 ) not ( 19 ) ;)
IF THIS.Caption = "NOTITLE"
THISFORM.TitleBar = 0
THIS.Caption = "TITLE"
nOffset = 0
ELSE
THISFORM.TitleBar = 1
THIS.Caption = "NOTITLE"
nOffset = SYSMETRIC( 9 )
ENDIF
DO FORM B NOSHOW NAME oForm
oForm.Top = THIS.Top + THISFORM.Top + nOffset + SYSMETRIC( 4 )
oForm.Left = THIS.Left + THISFORM.Left + THIS.Width + SYSMETRIC( 3 )
oForm.Show
Also this assumes the called forms borderstyle is resizable if not change 4 and 3 to 10 and 11.
hth
Roi
'MCP' Visual FoxPro
In Rome, there was a poem.
About a dog, who found two bone.
He lick the one, he lick the other.
He went pyscho, he drop dead!
