真没搞懂你说的什么mm

text1.text="Tan(" & text1.text & ")"


right?

Private sub CmdOp_click(index as inter)
   text1.text=text1.text & CmdOp(index).caption
      ......
end sub