Colorear botones de forma rapida

[jiusad]

Hola:
Tengo cosa de 200 botones y los quiero pintar de color rojo pero no se hacerlo mas que pintando uno a uno con la sentencia
Command1.Picture=LoadPicture ("rojo.bmp")
¿Hay alguna manera de hacerlo con un FOR o algo parecido?
Gracias de antemano

[GeoAvila]

desde luego si hubieses puesto los botones como array de botones...

nos vemos..

[vbx3m]

pero puedes utilizar esto:

Dim command As Object
Private Sub Form_Load()
For Each command In Controls
If TypeOf command Is CommandButton Then
command.Picture = LoadPicture("ruta")
End If
Next
End Sub

[David]

Iniciado por vbx3m

pero puedes utilizar esto:

Dim command As Object
Private Sub Form_Load()
For Each command In Controls
If TypeOf command Is CommandButton Then
command.Picture = LoadPicture(ruta)
End If
Next
End Sub

Me gustó la forma como lo resolvísteis....
Vale, podríamos agregarle ésto:

Código:

 
Dim Imagen As IPicture
Set Imagen = LoadPicture("ruta")
For Each command In Controls
If TypeOf command Is CommandButton Then
if command.Tag = "PINTAR" Then
command.Picture = Imagen
End If
End If
Next

Así pues, en vés de pintar todos los botones, solo pinta los que tienen el Tag PINTAR, además, no tenemos que volver a cargar la Imagen las 200 veces...

[David]

Ahora, lo que no llego a comprender es para qué usar una imagen cuando existe la propiedad BackColor

[Jad-Neo]

Pero me parece que esa propiedad no está disponible para los CommandButtons. Abría que usar APIS y eso se lleva un buen, a mi opinion creo que como lo hace jiusad es más simplificado.

[jiusad]

Muchisimas gracias. Con lo que me habeis recomendado (que era lo que yo buscaba) se aligera el proyecto una barbaridad. Antes tenia que pintar 200 commands uno a uno (cargaba el proyecto hasta hacer que fuera pesado) y ahora de golpe los pinto todos.Maravilloso. Sois fabulosos.