sub getfocus(itemid)
  rem 取得焦点
  set range=document.all(itemid).createTextRange '选择itemid为范围，起始点是文本前面，结束点是文本末尾。
  range.collapse true '将范围减小到开始点，即定位到文本的开头。
  range.select '选中“range”
  set range=nothing
  document.all(itemid).focus '取得焦点
end sub
'“信息”——在“FrontPage”中显示汉字。