Be aware though Pciture/Mask exist only from
OfficeXP/2003 (doesnot exist for Office 2000/Office97

Sub IconSnippet()
Dim ctl As Office.CommandBarButton
Select Case Val(Application.Version)
Case Is < 10
With ctl
Sheet1.Shapes("Icon1").CopyPicture xlScreen, xlBitmap
.PasteFace
End With
Case 10-11
#If VBA6 Then
CallByName ctl, "picture", VbLet, _
frmIcons.iml.ListImages("Pict1").Picture
CallByName ctl, "mask", VbLet, _
frmIcons.iml.ListImages("Mask1").Picture
End With
Unload frmIcons
#End If
End If



--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


ckoch wrote :

Worked perfect with the imagelist. Thanks so much.