Function IECheckForQuicktime()
    Dim haveqt
    haveqt = false
    
    On Error Resume Next
    Set theObject = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")
    On Error goto 0

    If IsObject(theObject) Then
         If theObject.IsQuickTimeAvailable(0) Then 'Just check for file
              haveqt = true
         End If
    End If
    
    IECheckForQuicktime = haveqt
End Function