На форме есть много 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