private sub trafficlight_resize(byval sender as object, _ byval e as system.eventargs) handles mybase.resize me.invalidate() end sub
private sub trafficlight_layout(byval sender as object, _ byval e as system.windows.forms.layouteventargs) _ handles mybase.layout select case e.affectedproperty case "bounds" me.width = cint(me.height * 0.3333) case else ' 不执行任何操作 end select end sub
最后，设置控件在工具箱中使用的图标。控件已经有一个看似齿轮的默认图标，但是我们要使用 visual studio .net 附带的红绿灯图标。
控件的工具箱图标是由名为 toolboxbitmap 的类中的特性设置的。在以 public class 开始的行上面插入以下行：
<toolboxbitmap("c:/program files/microsoft visual studio .net/common7/graphics/icons/traffic/trffc09.ico")> _
注意：所有内容都应在一行中。为了便于阅读，我们在 studio 后放置了一个回车。粘贴该代码时，要确保它们位于一行中，studio 和 .net 之间只需一个空格，并删除回车。如果您已经将 visual studio .net 安装到其默认位置，那么上述代码将用 visual studio 目录中的图标设置该特性。如果您没有将 visual studio .net 安装到其默认位置，则需要相应地更改图标的路径名。
