Is it not possible to use something like that:

#If VB6 Then
....

or

#If ccXL2K Then
....


Tom



"Tom Ogilvy" schrieb im Newsbeitrag
...
put the code in the second leg of the if statement in a separate sub and
don't comile. Call the sub if the version so dictates.

--
Regards,
Tom Ogilvy

"Tom" wrote in message
...
Hi

I have a version problem. The following script creates an icon on the
toolbar. The problem is, that Excel 97 and Excel 2000 cannot handle the
.Picture property.

Private Sub SetIcon(cbrCtrl As CommandBarButton, shpPict As Shape,
shpMask
As Shape)
Dim oMask As StdPicture

If Val(Application.Version) <= 9 Then
shpPict.Copy
cbrCtrl.PasteFace
Else
shpMask.CopyPicture xlScreen, xlBitmap
cbrCtrl.PasteFace
Set oMask = cbrCtrl.Picture
shpPict.CopyPicture xlScreen, xlBitmap
cbrCtrl.PasteFace
cbrCtrl.Mask = oMask
End If

Application.CutCopyMode = False

End Sub

How to program this code without a compile error?

Tom