Replies are closed for this discussion.
See if this example is helpful to you:
Thank you very much. You have helped me out !
The statement that I was searching was this one :
Dim modes As Rhino.Display.DisplayModeDescription() = _
Dim DispMode As Rhino.Display.DisplayModeDescription = Nothing
DispMode = modes(3)
Dim _RhDocView As Rhino.Display.RhinoView = _RhDoc.Views.ActiveView
_RhDocView.ActiveViewport.DisplayMode = DispMode