Use the Bullet property to change the type of the item. Use the Command property of the control to get an command based on the item's identifier. Use the Add property of the Menu object to add a new item. Use the Items property of the control to access to menu items at runtime. The following sample shows how to add two items, one of separator type, and one of default type:

With PopupMenu1.Items
    .Add "", Separator
    With .Add("Item")
        .ID = 1234
        .Image = 1
        .Check = True
    End With
End With