Visual Basic - Deshabilitar botones en Toolbar

Para deshabilitar varios botones en un toolbar lo hago de la siguiente manera:

Toolbar1.Buttons(1).Enabled = False
Toolbar1.Buttons(2).Enabled = False
Toolbar1.Buttons(3).Enabled = False
Toolbar1.Buttons(4).Enabled = False

¿Habría alguna otra manera de deshabilitar varios botones, sin tener que escribir el mismo codigo 4 veces?

'Opcion 1
Dim iLoop as integer
Dim iMax as integer
for iLoop = 1 to Imax
toolbar1.buttons(iLoop).enabled false
next iLoop

'Opcion 2
Dim MyControl As Button
For Each MyControl In Toolbar1.Buttons
MyControl.Enabled = false
Next

Suerte!

intentale asi:

para vb6:
sub desabilitar()
Dim i As Integer
For i = toolbar1.Count - 1 To 0 Step -1
toolbar1(i).enabled = false
Next i
end next