Private Sub Timer1_Timer()
Set QMDispatchObj = CreateObject("QMDispatch.QMFunction")
x = QMDispatchObj.FindPic(0, 0, 1152, 864, "c:\123\大鬼.bmp", 0.9)
If x > 0 Then
Image42.Visible = False
End If
End Sub

这个代码用了以后    他好像就没执行If x > 0 Then 这段代码   直接就Image42.Visible = False 请大家帮忙帮小弟解决下。