Private Sub SetCB(ByVal text)    '复制文本到剪贴板
    With CreateObject("Forms.TextBox.1")
        .MultiLine = True
        .text = text
        .SelStart = 0
        .SelLength = .TextLength
        .Copy
    End With
End Sub