学员问题：

在角色设置，复制粘贴权限时，提示类型不匹配，错误提示如下

点击调试按钮，高亮显示的代码有问题

解决方法：

Me.lstUserRole.Tag是文本数据，无法用CLng转换数据类型，把转换函数去掉就可以了

Private Sub btnPaste_Click()
    SetCursor ctWait
    lstUserRole_AfterUpdate
    LoadRolePermissions Me.lstUserRole.Tag
    Me.sfrPermissions.Form.Refresh
End Sub