主题：将一个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