here is my code
Private Sub Command0_Click()
Dim App As Object
Set spObj = CreateObject("imaging.Application"
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.
Private Sub Command0_Click()
Dim App As Object
Set spObj = CreateObject("imaging.Application"
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.