OwnerActionSample Example for Visual Basic

LEADRasterContainerViewer.EnableMethodErrors = True

     ' Activate Owner action if the action is not activated
     If LEADRasterContainerViewer.OwnerAction(0).Use = False Then
        LEADRasterContainerViewer.OwnerAction(0).ActivateAction True, 0
     End If
     ' Select left mouse button to control Owner action
     LEADRasterContainerViewer.OwnerAction(0).SetMouseButtonAction CONVIEW_MOUSE_BUTTON_LEFT, CONVIEW_ACTION_ACTIVEONLY Or CONVIEW_ACTION_REALTIME

     ' Select left, right, up, and down keys to control Owner action
     LEADRasterContainerViewer.OwnerAction(0).Modifier = CONVIEW_KEY_ALT
     LEADRasterContainerViewer.OwnerAction(0).Key = vbKeyDown
     LEADRasterContainerViewer.OwnerAction(0).SetKeyboardAction CONVIEW_MOUSEMOVE_DOWN
     LEADRasterContainerViewer.OwnerAction(0).Key = vbKeyUp
     LEADRasterContainerViewer.OwnerAction(0).SetKeyboardAction CONVIEW_MOUSEMOVE_UP

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