With wb.AddButtonGroup("form1","btngrp1",False)
.Add("btn1", "主页1","", "index.htm?id=1")
.Add("btn2", "主页2","", "index.htm?id=2")
End With
With wb.AddButtonGroup("form1","btngrp2",False)
.Add("btn3", "主页3", "button").Attribute = "onclick=""xx函数('1')"""
.Add("btn4", "主页4", "button").Attribute = "onclick=""xx函数('2')"""
End With
With wb.AddButtonGroup("form1","btngrp1",False)
.Add("btn5", "主页5","", "index.htm").value = "1"
.Add("btn6", "主页6","", "index.htm").value = "2"
End With