找不到工程或库

Question

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
'Dim ProjThirdClarity1 As New ProjThirdClarity
StatusBar1.Panels(5).Text = "当前坐标：X=" & Str(Int(x)) & "|Y=" & Str(Int(y))
Select Case ItemName
       Case "ThirdClarityProj"
            Call ProjThirdClarity1.Proj3MouseMove
End Select
End Sub这是代码的一部分，编译出来后显示找不到工程或库。

Answer 1

ProjThirdClarity1.Proj3MouseMove
1.检查是否存在ProjThirdClarity1
2.检查ProjThirdClarity1是否有属性Proj3MouseMove

Answer 2

zjhiphop2006，您好，能帮我看看我的源码么，实在是编译不了。

Answer 3

ProjThirdClarity 这个库丢失。

Answer 4

看看你贴出来的代码，你的代码不会真的把对象声明和实例化的这句给comment了吧？
'Dim ProjThirdClarity1 As New ProjThirdClarity
如果不是，建议你检查一下ProjThirdClarity这个类的库文件是否存在或者注册