Option Explicit

Const kMsgBoxTitle = "iView MediaPro"
Dim app, mediaItems, headItem, mediaItem, i, j, headID, custCount

' display an about box
If (MsgBox("This script will copy the product field to the headline field for all selected items.", 65, kMsgBoxTitle) = vbOk) Then
	Main()
End If

Sub Main()
	Set app = CreateObject("iView.Application")

	' get the active catalog
	If (app.Catalogs.count = 0) Then
		MsgBox "Please launch iView MediaPro.", vbCritical, kMsgBoxTitle
	Else
		Set mediaItems = app.ActiveCatalog.Selection
	
		For each mediaItem in mediaItems
			    
                	mediaItem.Annotations.Headline = mediaItem.Annotations.Product

       		 Next
	
	End If

End Sub