Dim modes As Rhino.Display.DisplayModeDescription() = _ Rhino.Display.DisplayModeDescription.GetDisplayModes() Dim DispMode As Rhino.Display.DisplayModeDescription = Nothing DispMode = modes(3)
Dim _RhDocView As Rhino.Display.RhinoView = _RhDoc.Views.ActiveView _RhDocView.ActiveViewport.DisplayMode = DispMode _RhDoc.Views.Redraw()