PUBLIC SUB ButtonProperties_Click()
  DIM p AS String
  p = "<h2>桌面属性</h2>"
  p &= "字符编码 <b>" & Desktop.Charset & "</b>"
  p &= "<br>高度 <b>" & Desktop.Height & "</b>"
  p &= "<br>分辨率 <b>" & Desktop.Resolution & "</b>"
  p &= "<br>尺度 <b>" & Desktop.Scale & "</b>"
  p &= "<br>宽度 <b>" & Desktop.Width & "</b>"
  Message.Info(p)
END