Sub OnStartup
  Dim Mnu : Set Mnu = sdb.UI.AddMenuItemSep(SDB.UI.Menu_Pop_NP_MoreFrom, -1, -1)

' Add FindMoreFromSame menu entry to the Pop track menu Now Playing
  Set Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_NP_MoreFrom, 0, 1)
  Mnu.Caption = "Test Pop_NP_MoreFrom 0, 1"
  Mnu.OnClickFunc = "Info"
  Mnu.IconIndex = 24
  Mnu.UseScript=Script.ScriptPath

' Add FindMoreFromSame menu entry to the Pop track menu Now Playing
  Set Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_NP_MoreFrom, -1, 1)
  Mnu.Caption = "Test Pop_NP_MoreFrom -1, 1"
  Mnu.OnClickFunc = "Info"
  Mnu.IconIndex = 24
  Mnu.UseScript=Script.ScriptPath

' Add FindMoreFromSame menu entry to the Pop track menu Now Playing
  Set Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_NP_MoreFrom, 1, 1)
  Mnu.Caption = "Test Pop_NP_MoreFrom  1, 1"
  Mnu.OnClickFunc = "Info"
  Mnu.IconIndex = 24
  Mnu.UseScript=Script.ScriptPath

  Set Mnu = sdb.UI.AddMenuItemSep(SDB.UI.Menu_Pop_TrackList_MoreFrom, -1, -1)

' Add a menu entry to the Pop track menu in main window
  Set Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_TrackList_MoreFrom, 0, 1)
  Mnu.Caption = "Test Pop_TrackList_MoreFrom 0, 1"
  Mnu.OnClickFunc = "Info"
  Mnu.IconIndex = 24
  Mnu.UseScript=Script.ScriptPath

' Add a menu entry to the Pop track menu in main window
  Set Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_TrackList_MoreFrom, -1, 1)
  Mnu.Caption = "Test Pop_TrackList_MoreFrom -1, 1"
  Mnu.OnClickFunc = "Info"
  Mnu.IconIndex = 24
  Mnu.UseScript=Script.ScriptPath

' Add a menu entry to the Pop track menu in main window
  Set Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_TrackList_MoreFrom, -1, -1)
  Mnu.Caption = "Test Pop_TrackList_MoreFrom -1, -1"
  Mnu.OnClickFunc = "Info"
  Mnu.IconIndex = 24
  Mnu.UseScript=Script.ScriptPath

  Set Mnu = sdb.UI.AddMenuItemSep(SDB.UI.Menu_Pop_NP_MainWindow, -1, -1)

  ' Add a menu entry to the Pop track menu Pop NP MainWindow
    Set Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_NP_MainWindow , -1, 1)
    Mnu.Caption = "Test Pop_NP_MainWindow -1, 1"
    Mnu.OnClickFunc = "Info"
    Mnu.IconIndex = 24
    Mnu.UseScript=Script.ScriptPath

  ' Add a menu entry to the Pop track menu Pop NP MainWindow
    Set Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_NP_MainWindow , 0, 1)
    Mnu.Caption = "Test Pop_NP_MainWindow 0, 1"
    Mnu.OnClickFunc = "Info"
    Mnu.IconIndex = 24
    Mnu.UseScript=Script.ScriptPath

  ' Add a menu entry to the Pop track menu Pop NP MainWindow
    Set Mnu = SDB.UI.AddMenuItem(SDB.UI.Menu_Pop_NP_MainWindow , -1, -1)
    Mnu.Caption = "Test Pop_NP_MainWindow -1, -1"
    Mnu.OnClickFunc = "Info"
    Mnu.IconIndex = 24
    Mnu.UseScript=Script.ScriptPath
End Sub

Sub Info(Mnu)
 msgbox Mnu.Caption & " works!"
End Sub