REM  *****  BASIC  *****

Sub LibOCouche(LibOEvent)
 
dim LibOGestCouches as object
 
LibOGestCouches  = thiscomponent.LayerManager
 
if LibOGestCouches.hasByName(LibOEvent.source.model.Label) then
	LibOGestCouches.getByName(LibOEvent.source.model.Label).IsVisible =_
	not(LibOGestCouches.getByName(LibOEvent.source.model.Label).IsVisible)
else
	msgbox "Pas de couche " & LibOEvent.source.model.Label
end if
 
End Sub