Option Explicit
 
Dim UI  : Set UI = SDB.UI
 
Sub OnStartUp()
    Dim mnuTest
    Set mnuTest = SDB.UI.AddMenuItem(SDB.UI.Menu_Edit, 0, 0)
    mnuTest.Caption = SDB.Localize("Sync Now Playing to Galaxy Nexus")
    mnuTest.OnClickFunc = "SDBOnClick"
    mnuTest.UseScript = Script.ScriptPath    
End Sub
   
Sub SDBOnClick(Item)   
  Dim DeviceHandle : DeviceHandle = -1
  Dim Devices : Set Devices = SDB.Device.ActiveDeviceList("VID_04E8&PID_6860")
  Dim i : i = 0 
  For i = 0 To Devices.Count-1
	   If Devices.DeviceHandle(i) <> -1 Then
		   DeviceHandle = Devices.DeviceHandle(i)
	   End If
  Next
  
  SDB.Device.StartSynch DeviceHandle, SDB.Player.CurrentSongList
End Sub