Change

* emForm.Visible = .T.
* to
emForm.SHOW(1)
...

>Here is my code:
>
>ThisForm.calculatemessage(3)
>
>=msfunct.getMilestoneTasks(0,AllT(Str(ThisForm.mstyle)))
>
>emForm = CreateObject("excludemilestones")
>emForm.Visible = .T.
>
>If msfunct.generatemilestonedates(ThisForm.mstyle, ThisForm.kickoff_date, ThisForm.ship_date, ThisForm.ondock_date, ThisForm.schedule_adjustment) Then
>
>ThisForm.calculatemessage(4)
>
>ThisForm.AddObject('milestoneinitialdisplay1','milestoneinitialdisplay')
>ThisForm.milestoneinitialdisplay1.Visible = .T.
>
>ThisForm.milestoneinitialdisplay1.Left = ThisForm.milestoneinitialdisplayleft - ThisForm.milestoneinitialdisplay1.Width
>ThisForm.milestoneinitialdisplay1.Top = ThisForm.milestoneinitialdisplaytop
>
>ThisForm.Command2.Enabled = .T.
>
>EndIf
>
>The form created is set to modal. However, the second part of this code runs before the form is closed.