关于选择集的问题

zlg258369

        Dim acadApp As AcadApplication = CType(Application.AcadApplication, AcadApplication)
        Dim SSText As AcadSelectionSet
        Dim FilterType(0) As Short
        Dim FilterData(0) As Object
        Dim i As Integer

        FilterType(0) = 0
        FilterData(0) = "*TEXT"

        SSText = acadApp.ActiveDocument.SelectionSets.Add("text")
        SSText.SelectOnScreen(FilterType, FilterData)

 

此代码在类模块下可以，为何在窗体下不好用呢？