what is wrong with this code - trying to use kodak imaging to scan

[Blitz]

here is my code


Private Sub Command0_Click()
Dim App As Object
Set spObj = CreateObject("imaging.Application&quot
If spObj.ScannerAvailable = True Then
MsgBox "on"
Else
MsgBox "off"
End If
End Sub

If i can get this to work and dont know what i am missing or doing wrong. I referenced all the kodak image controls but whenever i run this i get:
Run-time error '438':
object doesnt support this property or method

When i click debug it highlights "If spObj.ScannerAvailable = True Then" but i dont know what i need to do to fix it. Thanks for any help.