follow code→Set SwView = SwView.GetNextView

My question, hvae be Set view, How to delete view?

********************

Sub ll()

  Dim SwApp As SldWorks.SldWorks, SwDraw As DrawingDoc

  Set SwApp = Application.SldWorks

  Set SwDraw = SwApp.ActiveDoc

  Dim vSheet As Variant, oSheet As Sheet

  Dim SwView As View

  With SwDraw

    vSheet = .GetSheetNames

    For ii = 0 To UBound(vSheet)

       .ActivateSheet (vSheet(ii))

       Set oSheet = .GetCurrentSheet

       Debug.Print oSheet.GetName, ;

       Set SwView = .GetFirstView

       Do While Not SwView Is Nothing

         Debug.Print SwView.GetName2, ;

         Set SwView = SwView.GetNextView

       Loop

       Debug.Print

    Next ii

  End With

End Sub