在编写批量剪切程序时，希望程序在循环剪切中可以改变当前光标选中项，也就是有指向的选择要剪切的对象，怎么实现？

您说的这个我已猜到，的有具体的例子吗？，另外：
API右键菜单怎么调用自定义函数呢？具体函数如下：
Public Function AddCallBack(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Select Case wMsg
        Case WM_COMMAND '消息
            Select Case wParam
                Case WM_USER + IDM_CUT
                                              UserForm1.cmd剪切
                Case WM_USER + IDM_CREAT
                                            UserForm1.TreeView1.Cmd添加
                Case WM_USER + IDM_PASTE
                                              UserForm1.TreeView1.cmd粘贴
            End Select
    End Select
    AddCallBack = CallWindowProc(OldProc, hwnd, wMsg, wParam, lParam)
End Function
    剪切、添加、粘帖函数在按钮点击时已通过测试，请教和API右键菜单的关联问题？
谢谢！

还有：我是在cad环境中用的vba编程的，vb中很多的常量在这里不支持了

api右键弹出菜单我已捣鼓出来，与自定义函数关联时老死机，调用出错。