阅读以下Visual Basic代码片段，其中Map1是一个MapObject控件的名字，Text1是一个文本控件的名字。
Private Sub Command7_Click()
  Dim recs As MapObjects2.Recordset
  Dim shp As Object
  Dim rect As MapObjects2.Rectangle
  Dim exp As String
  exp = "STATE_NAME = '" & Text1.Text & "'"
  Set recs = Map1.Layers("States").SearchExpression(exp)
  If Not recs.EOF Then
    Set shp = recs.Fields("Shape").Value
    Set rect = shp.Extent
    rect.ScaleRectangle 2
    Set Map1.Extent = rect
    Map1.Refresh
    Map1.FlashShape shp, 3
  End If
End Sub
以上代码片段中没有实现的功能是（）。