VB引用金山词霸取词出现的问题〖高分求助〗

//引用XdictGrb2.dll

VB code

Option Explicit Implements IXDictGrabSink Private gp As GrabProxy Private Sub Form_Load() Set gp = New GrabProxy With gp.GrabEnabled = True .GrabInterval = 30 .GrabMode = XDictGrabMouse.AdviseGrab Me End With End Sub Private Function IXDictGrabSink_QueryWord(ByVal WordString As String , ByVal lCursorX As Long , ByVal lCursorY As Long , ByVal SentenceString As String , lLoc As Long , lStart As Long ) As Long Label1.Caption = " 当前坐标： " & " ( " & lCursorX & " , " & lCursorY & " ) " Label2.Caption = " 当前语句： " & SentenceStringLabel3.Caption = " 当前字符： " & Mid (SentenceString, lLoc + 1 , 1 ) End Function
取AfxFramOrView42这个控件的字，字少的时候还可以，字多了后面的就取不出来的，请问这是怎么回事？

机上装了词霸2006,表示木有找到这个文件.