Hi
You have to create new view like this :
Dim viewRobot As IRobotView3 ' this is important to set IRobotView3 if you want to make screen capture of this view
' Set viewRobot = RobApp.Project.ViewMngr.CreateView(1)
Set viewRobot = RobApp.Project.ViewMngr.GetView(1) ' it seems CreateView makes this strange affect, use GetView instead
viewRobot.Redraw (True)
viewRobot.Visible = True
viewRobot.Selection.Get(I_OT_BAR).FromText ("1 2 3 4 5") ' selecting bars
viewRobot.Selection.Get(I_OT_CASE).FromText ("1") ' selecting case
viewRobot.Redraw (0)
Rafal Gaweda