Here are a couple:
Private Function ActiveViewOfActiveProject() As ViewSingle
Set ActiveView = ActiveWindow.ActivePane.View
End Function
Private Function ActiveView(TargetProject As Project) As ViewSingle
Set ActiveView = TargetProject.Windows.ActiveWindow.ActivePane.View
End Function...
