AVIFileOpenについて

なな 2005-03-21 16:59:08 No: 120384 IP: [192.*.*.*]

VisualBasic6.0を使用して作成してるのですが、
Video for WindowsのAVIFileOpenを使用すると、
REGDB_E_CLASSNOTREGが返されてしまいます。
何が悪いのか見当がつかず困っています。

Const OF_READ = &H0
Dim ret as Long
Dim pavi as Long
Dim thisPass as String

thisPass = "C:\file\test.avi"

Call AVIFileInit
ret = AVIFileOpen(pavi, thisPass, OF_READ, Null)

..........
.....
..

OS: Win2000Sp4