Function checkQTVR()

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

    If IsObject(theObject) Then
      If theObject.IsQuickTimeAvailable(0) Then   'Just check for file
        qtpresent = 1
        parent.qtversion = getVersion(qthex)
      End If
    Else
       qtpresent = 0
    End If

//	msgbox(qtversion)

End Function