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