vb问题！如何添加windows右键菜单快捷方式

请问如何用vb实现一个简单的功能？在windows系统添加一个右键快捷方式，我需要通过这个快捷方式启动我的程序并能够使程序读取到触发这个快捷方式的路径，支持多文件。就像winrar的右键快捷方式“添加到压缩文件”这样的功能。

用wshshell组件的RegWrite方法写注册表，在HKEY_CLASSES_ROOT\*\Shell 位置加入的你程序，
例如：
[HKEY_CLASSES_ROOT\*\shell\我的程序\command]
@="D:\\我的程序.exe %1"

后面的%1会将文件名传送给你的程序的Command$，多文件名需要使用DDE方式进行互斥传入。

新建一个，取名为popmenu。

然后加入这段代码

private sub form_mousedown(button as integer, shift as integer, x as single, y as single) if button = 2 then    '如果是鼠标右键按下时     form1.popupmenu popmenu, 0, x, y    '弹出右键菜单   end if

end sub

最后就是在每一个菜单里面每一个子项编写一下click事件了。至于具体的click事件要怎么写，如新建文件夹，新建文件，你要求助别人了。具体也忘了！