SOLVED: Popup Control

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

Is there any sample code that demos the use of the popup control? 

I have some code below - seems easy enough, but I am not getting any text in the popup box!

Sub doPopup()
  Dim P As PopupControlItem
  Popup.RemoveAllItems
  Set P = Popup.AddItem(Screen.Width - Popup.Width, _
                                        Screen.Height - Popup.Height, _
                                        Screen.Width, _
                                        Screen.Height, _
                                        "NEW MESSAGE")
  Popup.Show
End Sub