Set iTunes=CreateObject("iTunes.Application")
F=iTunes.ForceToForegroundOnDialog
T="The current value of the iTunes.ForceToForegroundOnDialog propery is """
If F Then
  T=T & "True"""
Else
  T=T & "False"""
End If
T=T & vbCrLf & vbCrLf & "Change the value?"
R=MsgBox(T,vbYesNoCancel+vbQuestion,"Force Foreground")
If R=vbYes Then iTunes.ForceToForegroundOnDialog=Not(F)