编译错误:未找到方法或数据成员 LLWindowsXP1是什么?

[guoxujie]

我公司以前开发的一套软件，开发工具是VB6，开发的员工没交接清楚就跑掉，他也没留下任何的说明文档。现在我公司要我来负责修改这套程序的代码。运行的时候提示对话框：

编译错误:未找到方法或数据成员

然后环境就定在 LLWindowsXP1.InitSubClassing,不动了。

请问高手：LLWindowsXP1.InitSubClassing是什么？

[guoxujie]

Private Sub Form_Load()
Dim RecSave As New ADODB.Recordset
Dim pTemp As String
Dim StrIni As String

LLWindowsXP1.InitSubClassing

Set TT = New ClsTooltip
TT.Style = TTBalloon
TT.Icon = TTIconInfo

StrIni = String$(2000, " ")
GetPrivateProfileString "AQSM", "TableName", "", StrIni, Len(StrIni), App.Path & "\AQSM.ini"
If Trim(StrIni) = "" Then Exit Sub
StrIni = Trim(StrIni)
AQSMTable = Replace(StrIni, Chr(32), "")

If RecSave.State = 1 Then RecSave.Close
RecSave.CursorLocation = adUseClient
RecSave.Open "Select * from Report_Info Where Report_Id = '2002123456789'", MainConnect, adOpenStatic, adLockBatchOptimistic

If RecSave.RecordCount = 0 Then
MainConnect.Execute "Insert Into Report_Info(Report_Id,Info_Description) Values ('2002123456789','" & App.Path & "\Data" & "')"
Else
If (Trim(RecSave.Fields("Info_Description")) = "") Or (IsNull(RecSave.Fields("Info_Description"))) Then _
MainConnect.Execute "Update Report_Info Set Info_Description = '" & App.Path & "\Data" & "' Where Report_Id = '2002123456789'"
End If
RecSave.Close

pTemp = GetRegString(HKEY_LOCAL_MACHINE, "Software\KY-2002\MainFlags", "PageSize")

If IsNumeric(pTemp) Then
PageSize = CLng(pTemp)
Else
PageSize = 30
SaveRegString HKEY_LOCAL_MACHINE, "Software\KY-2002\MainFlags", "PageSize", "30"
End If

pTemp = GetRegString(HKEY_LOCAL_MACHINE, "Software\KY-2002\MainFlags", "DeleteFolderFile")
MnuDeleteFolderFile.Checked = IIf(pTemp = "1", True, False)

RecSave.Open "Select SouTable From TP_BJZT", MainConnect, adOpenStatic, adLockReadOnly
If RecSave.RecordCount > 0 Then
Do Until RecSave.EOF
gsBJTable = gsBJTable & "," & RecSave.Fields(0)
RecSave.MoveNext
Loop
gsBJTable = gsBJTable & ","
End If
RecSave.Close

'''*****加上原文
Call GetFtpServerInfo

Screen.MousePointer = 11

If Not AreLoadPopedom("档案管理") Then _
MenuArch.Visible = False

If Not AreLoadPopedom("报表制作") Then _
MenuCreateReport.Visible = False

If Not AreLoadPopedom("档案利用") Then _
MenuUse.Visible = False

If Not AreLoadPopedom("档案统计") Then _
MenuCount.Visible = False

If Not AreLoadPopedom("数据管理") Then _
MenuData.Visible = False

If Not AreLoadPopedom("库房管理") Then _
MenuRoom.Visible = False

If Not AreLoadPopedom("系统管理") Then _
MenuSystem.Visible = False

If Not (gsGroupID = 0 Or gsGroupID = 2 Or gsGroupID = 3) Then MenuToData(3).Visible = False
ProMain.Tag = 0
DataIsFull = False
' Call LoadForArchive '''加载树结构
' Call LoadOriginalPath '''获得原文路径，放在全局变量中
' Call LoadDefaultPara '''获得上次退出的信息
Sta.Panels("UserName") = "登录用户：" & UserName '''显示状态栏

If gsCopyType = "简化版" Or gsCopyType = "简易版" Then mnuSend.Visible = True
If App.EXEName = "文档一体化档案管理系统(厦门集美简化版)" Or App.EXEName = "文档一体化档案管理系统(厦门集美简易版)" Then mnuDataSendOut.Visible = True
If gsCopyType = "简易版" Then mnuOriPathSet.Visible = True
''' Mnu_ReadOrder.Enabled = False

glbfrmInSizeX = &H7FFFFFFF: glbFileInSizeY = &H7FFFFFFF

If MainRec.State = 1 Then MainRec.Close
MainRec.CursorLocation = adUseClient

End Sub