Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
boolstatus = Part.SetLightSourcePropertyValuesVB("Umgebungslicht-1", 1, 0, 16777215, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.5, 0, 0, False)
boolstatus = Part.LockLightToModel(0, True)
Part.GraphicsRedraw
boolstatus = Part.SetLightSourcePropertyValuesVB("Gerichtet-1", 4, 0.2, 16777215, 1, 2.3835, 1.1547, 0, 0, 0, 0, 0, 0, 0, 0, 0.1, 0.2, 0, False)
boolstatus = Part.LockLightToModel(1, True)
Part.GraphicsRedraw


End Sub