Picture для CommandButton

[DiT]

Вопрос:
На форме есть много Buttonов
В директории имеется набор Picture для них.
Имена всех Picture упорядочены. Хочется, чтобы все автоматом загружалось. Написал такой код. Не могу понять почему не работает

Private Sub LoadButton(NameButton as CommandButton)
NameButton.Picture = LoadPicture(ProgramPath + "\Button\" + NameButton.Name + "Off.jpg")
NameButton.DisabledPicture = LoadPicture(ProgramPath + "\Button\" + NameButton.Name + "Neactiv.jpg")
NameButton.DownPicture = LoadPicture(ProgramPath + "\Button\" + NameButton.Name + "Click.jpg")
End Sub

Private Sub Form_Load
LoadButton(Command1)
End Sub

[Aleksej]

Свойство Style=1

[DiT]

Стиль ессно установлен Graphical

Это я делаю, чтобы вручную не заполнять все поля для Buttonов

Выдает ошибку "Object required" при вызове.

Вообще хотелось бы все организовать в цикле for each

[alibek]

Set NameButton.Picture = ...

Код: Выделить всё

Dim C As Control
For Each C In Controls
  If TypeOf C Is CommandButton Then
    If Len(Dir$("C:\Pictures\" & C.Name & ".bmp")) > 0 Then
      Set C.Picture = LoadPicture...
    End If
  End If
Next C