主题：两个问题请教,窗口的工具栏,XObject

1、

Dim zcd = e.Form.Strips("主菜单").basecontrol
zcd.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
Dim m = e.Form.Strips("主菜单").Items("项目1").basecontrol
m.Font = new Font("黑体",12)
m.forecolor = color.red
m.backcolor = color.black

2、

Dim xml As String = "<xml><to name = 'name1'>George</to><from>John</from></xml>"
Dim xo As XObject = XObject.Parse(xml)
msgbox(xo("to")("@name"))
'For Each o As object In xo
'msgbox(o.key)
'msgbox(o.value("@name"))
'Next