SetOMROptions Example for Visual Basic

Private Sub Command18_Click()
   RasterDoc.GetOMROptions

   If RasterDoc.OMRModuleOptions.EnableFill = False Then
      RasterDoc.OMRModuleOptions.EnableFill = True
   End If

   If RasterDoc.OMRModuleOptions.Frame <> OMRFRAME_YES Then
      RasterDoc.OMRModuleOptions.Frame = OMRFRAME_YES
   End If
   
   If RasterDoc.OMRModuleOptions.Sense <> OMRSENSE_NORMAL Then
      RasterDoc.OMRModuleOptions.Sense = OMRSENSE_NORMAL
   End If
   
   RasterDoc.SetOMROptions
End Sub