Function CheckQuickTimeVB

    CheckQuickTimeVB = false

    On Error Resume Next
    Set qtObject = CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")

    On Error goto 0

    If IsObject(qtObject) Then
         If qtObject.IsQuickTimeAvailable(0) Then 'Just check for file
              CheckQuickTimeVB = true
         End If
    End If

End Function