VBA turn on/off certain layers

[tinus94]

Hi,

 

I want to put on and off layers in my drawing which contains the text "AL-" (So put off all the layers that are containing this text)

 

Yes I know, a simple Macro is much easier, but I want it in VBA8)

 

I'm working with a code based layer system. When I have this code, I can work them out for all codes.

 

By the way, it is for a toggle-button (green red). I already have this code:

 

 
Private Sub tgl_AL_Click()
If ActiveControl.Value = True Then
Me.ActiveControl.BackColor = &HFF&
Else
Me.ActiveControl.BackColor = &HC000&
End If
End Sub

 

Thanks already!!