Dim clb As BClipboard,dystr As String ''必须先检测has否则程序崩溃 If clb.HasText Then dystr = clb.getText End If