请问外部程序怎么调用基础资料的选择框

请问下，外部程序怎么调用基础资料的选择框，就是F7事件选择基础资料（比如供应商），并获取用户选择的值。

K3WISE14.0按照这种做法会报错。

这个是调用常用的基础资料 ，如果调用BOS基础资料呢，该怎么写

引用kingdee ebo client views for Gl

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo HError:
If KeyCode = 118 Then
Dim obj As EBCGLView.GLView
Dim retObj As Object

Set obj = New EBCGLView.GLView
Set retObj = obj.ItemLookup(4)

If retObj.returnok Then
Text1.Tag = retObj.ReturnObject.Itemid