AutoCAD VBA, Showing the AutoCAD editor when a routine ends

[muck]

When the following VBA routine ends it shows

the VBA design editor.

 

'Zoom Window

Private Sub CommandButton1_Click()

Dim vPt1 As Variant

Dim vPt2 As Variant

Me.hide

vPt1 = ThisDrawing.Utility.GetPoint(, "Select Point 1")

vPt2 = ThisDrawing.Utility.GetPoint(, "Select Point 2")

ZoomWindow vPt1, vPt2

'Me.Show

End Sub

 

How can I get this routine to end showing the AutoCAD editor instead

of the VBA design editor when this routine ends?

 

Thank you,

[ollie]

You could probably use

 

  activedocument.sendcommand("vbaide\r")

 

Can't remeber the ascii character for return you may have to replace the \r with it