主题：将一个button的Image赋值给另一个Button

Dim a,b As WinForm.Button
a = e.Sender
For Each b In Forms("录入货品信息").Controls
    If b.Focused  Then
        b.Image = a.Image
        e.Form.Close()
    End If
Next

希望通过上面一段代码将button的Image赋值给另一个Button,却出现了错误提示，请教诸位高手，该怎么呢弄？

下面是错误提示的截图

此主题相关图片如下：2013-09-02 14 42 54.png

看完发来的实例，在forms（"洗涤图标"）的全局事件click事件中设置如下代码，还是不能成功，错误提示照旧

Dim a,b As WinForm.Button
a = e.Sender
For Each b In Forms("录入货品信息").Controls
    If b.Focused  Then
        b.Image =GetImage(a.Tooltip)
        e.Form.Close()
    End If
Next

还是不行，只好上例子了，劳驾各位！

其实我的目标是：点击窗口"录入商品信息"的"boxgroup3“中的任意一个Button便选定它，同时打开窗口"洗涤标志"，点击其中的某个图标(Button),则将其Image赋值给窗口"录入商品信息"中选定的Button。当所有赋值工作完成后，点击窗口"录入商品信息"中的"确定"按钮，再将这些Image批量赋值给窗口所属表的对应列。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:诺诗兰管理系统.foxdb

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:数据源.zip

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:洗涤标志.zip

补充一下，窗口“洗涤标志”中的button是动态生成的，是不是这个有影响？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:实例.zip

试用版传上来了，劳驾各位了！

认真看了诸位的帖子，知道自己错在哪里了，还有两个相关问题，如下：

1、如果要用代码取消button的image，就像在窗口编辑器中将其设为一个方框，表示没有图片一样，该怎么设置代码？

2、如何用代码判断某个button的image是不是某个指定的图片？

下面的代码，错在什么地方？

If e.Sender.image Is getimage(ProjectPath & "洗涤标志\三角形.bmp") Then
   Forms("录入货品信息").Controls(Vars("btnName")).image = Nothing
    Return
End If
Forms("录入货品信息").Controls(Vars("btnName")).image = e.sender.image
e.Form.close()