I serach the KB and find Q135986:

The first step to registering a custom Find utility is to implement a shell
context menu extension that supplies the menu item. The handler's
IContextMenu::InvokeCommand() member will be called whenever the user
selects the custom Find utility on the Start Menu.

I wonder how to do this step in VB. Thanks.