Oh, ok. Thats easier. I think this is it.
VB Code:
  1. '...

  2.     '...

  3.     Set oViews = oTaskBox.Views

  4.     Set oView = oViews.Item("By Company")

  5.     'Set the view to the current view

  6.     oView.Save

  7.     oView.Apply