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 安裝到其默認位置，則需要相應地更改圖標的路徑名。
