Displaying Outline

I’ve created an outline entry Called “MyOutlineEntry”. Now i tried to add it to the NotesMailOutline. It is creating MyOutlineEntry but it is not showing up. If i close the application and launch the application again then i could able to see it. I tried to refresh using Refresh of workspace, ReloadWindow and RefreshFrameset but i was not successful. Could you please help me out. I had posted earlier i didn’t get the actual solution.

Please help me out. Here is my complete code.

Dim session As New notessession

Dim outline As NotesOutline

Dim db As notesdatabase

Dim entryA As NotesOutlineEntry

Dim entryB As NotesOutlineEntry

Set db = session.CurrentDatabase

Set outline = db.GetOutline(“NotesMailOutline”)

Set entryA = outline.GetLast()

Set entryB = outline.Createentry(“MyOutlineEntry”,entryA,True,False)

Call outline.AddEntry(entryA)

Call outline.save()