Enter the code in the message as you did. Select ALL those lines of code with the mouse. Then click the </> button.
Works best if you have a blank line before and after the code section, and select those as well as the code.
Dim b As NSButtonMBS = Me.NSButtonMBS
picker = new MyCNContactPickerMBS
dim r as new NSRectMBS(0,0,200,300)
picker.showRelativeToRect(r, b, picker.MaxXEdge)
thus.