找不到工程或库

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



这是代码的一部分，编译出来后显示找不到工程或库。 --------------------编程问答-------------------- ProjThirdClarity1.Proj3MouseMove
1.检查是否存在ProjThirdClarity1
2.检查ProjThirdClarity1是否有属性Proj3MouseMove
--------------------编程问答-------------------- zjhiphop2006，您好，能帮我看看我的源码么，实在是编译不了。 --------------------编程问答-------------------- ProjThirdClarity 这个库丢失。 --------------------编程问答-------------------- 应该会弹出提示吧，工程 - 引用 丢失 --------------------编程问答-------------------- 看看你贴出来的代码，你的代码不会真的把对象声明和实例化的这句给comment了吧？

'Dim ProjThirdClarity1 As New ProjThirdClarity

如果不是，建议你检查一下ProjThirdClarity这个类的库文件是否存在或者注册

补充：VB ,  基础类