小吳 VBQA 程式設計討論

Private Sub LaySelObj_Click()
Dim lays() As AcadLayer '層面物件
Dim ss1 As AcadSelectionSet '選集物件
Dim i As Integer '計數器
Me.Hide ＜-----------------hide
Set ss1 = AcadSELnamAdd("ss1")
ss1.SelectOnScreen
If ss1.Count = 0 Then GoTo LaySelObjOver
Call AcadSEL2LAYs(ss1, lays)
Me.Show ＜----------------show以後不會持行
LayLst.Clear
LayLst.ControlTipText = "點選物件"
For i = 0 To UBound(lays)
LayLst.AddItem lays(i).Name
Next i
LayLstSelEyes.Visible = True
LayLstSelHide.Visible = True
Call LayLstAddItemSub
LaySelObjOver:
ss1.Delete
Unload Me
ThisDrawing.Regen (acActiveViewport)
End Sub
這是AutoCAD 的VBA,請問me.hide後再me.show以後怎會不會持行
或者有其他的方式可使用