Sub Click(Source As Button)
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Set db = session.CurrentDatabase
 viewName = Inputbox$("Name of view")
 If viewName = "" Then Exit Sub
 Set view = db.GetView(viewName)
 Call view.Remove
End Sub

See Also

Removing a view or folder

Glossary