Sub ChangeIcon()
Dim cb1 As CommandBarButton
Dim cBar As CommandBar
Set cBar = Application.CommandBars("Your Toolbar")
Set cb1 = cBar.Controls(Index of your control)
cb1.Picture = UserForm2.Image1.Picture 'or whatever picture you
want to assign
End Sub

HTH

Die_Another_Day