StackActionSample Example for Visual Basic

    LEADRasterContainerViewer.EnableMethodErrors = True

    ' Activate stack action if the action is not activated
   If LEADRasterContainerViewer.StackAction.Use = False Then
       LEADRasterContainerViewer.StackAction.ActivateAction True, 0
    End If
    ' Select left mouse button to control window level parameters. 
    LEADRasterContainerViewer.StackAction.SetMouseButtonAction CONVIEW_MOUSE_BUTTON_LEFT, CONVIEW_ACTION_ACTIVEONLY Or CONVIEW_ACTION_REALTIME

    ' Select left, right, up, and down keys to control stack parameters. 
    LEADRasterContainerViewer.StackAction.Modifier = CONVIEW_KEY_ALT
    LEADRasterContainerViewer.StackAction.Key = vbKeyDown
    LEADRasterContainerViewer.StackAction.SetKeyboardAction CONVIEW_MOUSEMOVE_DOWN
    LEADRasterContainerViewer.StackAction.Key = vbKeyUp
    LEADRasterContainerViewer.StackAction.SetKeyboardAction CONVIEW_MOUSEMOVE_UP

    ' Select stack cursor. 
    LEADRasterContainerViewer.StackAction.Cursor = LoadPicture("c:\vb\icons\arrows\cross.cur")
   
    ' Specify stack parameters. 
    LEADRasterContainerViewer.StackAction.Change = 100
    LEADRasterContainerViewer.StackAction.CircularMouseMove = True
    
    ' Set stack parameters. 
    LEADRasterContainerViewer.StackAction.SetAction 0, CONVIEW_ACTIONLEVEL_CONTAINER