>Thank you for the code.
>
>jw

Using the sample editing toolbar that came with VFP 8, I changed it to ShowWindow in TopLevelForm.

In the ACTIVATE of the form, I added this code and it works.

If Not PemStatus(This, "oToolBar",5)
This.AddProperty('oToolBar',null)
This.oToolBar = NewObject('tbrediting','samples')
_Screen.Visible = .F.
This.oToolBar.Show()
This.oToolBar.Dock(0)
This.Height = This.Height + This.oToolBar.Height
This.oToolBar.cboFonts.Value = This.edit1.FontName
This.oToolBar.cboSizes.nlargestfont = 72
This.oToolbar.cboSizes.FillList(This.edit1.FontName)
This.oToolbar.cboSizes.Value = transform(This.edit1.FontSize)

EndIf

And your welcome. I knew I figured this out before. I'm at home, and have it here.

Tracy