protected overrides sub wndproc(byref m as system.windows.forms.message) mybase.wndproc(m) const wm_paint as integer = &hf if m.msg = wm_paint andalso me.borderstyle = borderstyle.fixedsingle then dim g as graphics = graphics.fromhwnd(me.handle) g.drawrectangle(pens.blue, me.clientrectangle.left, me.clientrectangle.top, me.clientrectangle.width - 1, me.clientrectangle.height - 1) g.dispose() end if end sub end class
