AutoCAD 2000, vba, selection method

[DanieleP]

On AutoCAD 2000 if I use a zoom command in a “SelectionOnScreen” method it stops the selection, example:
**************************
Set ssetObj = ThisDrawing.SelectionSets.Add("sset01")
ssetObj.SelectOnScreen EntGrp, blkTP

If ssetObj.Count <> 0 Then
EstraiPosTec
If txtPosTecSel <> "" Then
OrdinaPosTec
End If
End If

ThisDrawing.SelectionSets.Item("sset01").Delete
frmSeleziona.Show

Exit Sub
************************************
Does anyone know a way to use a zoom command (windows, previous, pan, etc..) while a selection method is runnig ?

Thanks