On Error Resume Next
	Set theObject = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")
On Error goto 0

If IsObject( theObject ) Then
	If theObject.IsQuickTimeAvailable(0) Then
		haveqt = true
	End If
End If

On Error Resume Next