CAD tip # 12520:

To set these styles, use the following rule - choose the requested display style from the enum list DisplayModeEnum, and the lighting style from the localized name in the Appearance tab in the Inventor ribbon:

' Display style/mode:
Dim oView As View = ThisApplication.ActiveView
oView.DisplayMode = DisplayModeEnum.kTechnicalIllustrationRendering
' or kShadedWithEdgesRendering, kWatercolorRendering, etc.
oView.Update

' Lighting style:
newLighting = "Grid Light" ' Alps, Two lights, Photo booth, Old store, etc.
Dim oDoc As Document = ThisApplication.ActiveDocument
If oDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
 Dim oAssy As AssemblyDocument = oDoc 
 oAssy.ActiveLightingStyle = oAssy.LightingStyles.Item(newLighting)
Else If oDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
 Dim oPart As PartDocument = oDoc 
 oPart.ActiveLightingStyle = oPart.LightingStyles.Item(newLighting)
End If