Sub catmain()
  
    Set PictureViewer = CATIA.ActiveWindow.ActiveViewer
               
    'Aktuelle Hintergrundfarbe auf Variable
    Dim color(2)
    PictureViewer.GetBackgroundColor color
    
    If color(0) = 1 And color(1) = 1 And color(2) = 1 Then
   
        'Hintergrund auf CATIA Stansdartfarbe
        PictureViewer.PutBackgroundColor Array(0.2, 0.2, 0.4)
        
    Else
    
        'Hintergrund auf Weis
        PictureViewer.PutBackgroundColor Array(1, 1, 1)
    
    End If
    
  End Sub