Graphical Button again

[simon]

Hi
Dmitry Streblechenko, and all:

I try the following ways to add picture to the button, but it does not
affect.
why?

The Codes:
-------------
Dim picPicture As IPictureDisp
Set picPicture = stdole.StdFunctions.LoadPicture("D:\add.bmp")
Set objNewButton = objNewBar.Controls.Add(msoControlButton, 1, , , True)
objNewButton.Caption = "&Save Mail"
Clipboard.SetData picPicture, vbCFBitmap
objNewButton.PasteFace
'objNewButton.Picture = picPicture
'MsgBox "Picture Loaded"