各位高手，请教下：
在ToolBar上右击显示Customize对话框，添加工具
Private pCustDialog As ICustomizeDialog
Private WithEvents pCustDialogEvents As CustomizeDialog

Private Sub AxToolbarControl1_OnMouseDown(ByVal sender As System.Object, ByVal e As AxesriToolbarControl.IToolbarControlEvents_OnMouseDownEvent) Handles AxToolbarControl1.OnMouseDown
If (e.button = System.Windows.Forms.Keys.RButton) Then
pCustDialog = New CustomizeDialog
pCustDialog.SetDoubleClickDestination(AxToolbarControl1)
pCustDialog.DialogTitle = "自定义"
pCustDialog.StartDialog(AxToolbarControl1.hWnd)
pCustDialogEvents = pCustDialog
End If
End Sub

Private Sub pCustDialogEvents_OnCloseDialog()
AxToolbarControl1.Customize = False
End Sub
Private Sub pCustDialogEvents_OnStartDialog()
AxToolbarControl1.Customize = True
End Sub
这段代码是在VB.net2003里面编写的，然而在VB 6.0中运行经常提示说缺乏结束语句，请问要怎样修改才能让它在VB6.0里面运行呢？？

VB升级了 到底是复杂了 还是简单了``

如果代码我多少程度上是复杂了...
但处理能力上升级了!

没有说到问题的重点吧！！！

各位可以指点下吗？？？？

你是想实现"弹出式菜单"吧?

首先 创建一个菜单,就命名为menu1吧

然后,添加如下的响应事件
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu menu1
End If
End Sub

的图形界面的代码是程序自动生成到代码里面的，而VB6。0的程序界面的代码是写在窗口代码之外的另外一个文件中的，你想移植不可以

楼上的弹出式菜单那个我懂，但不是我想要的答案，虽然都是弹出式菜单，然而其命令与接口是完全不同的。

你意思是一定要使用这段代码，但是想把它用在VB中是吧？
我告诉你，不可能 .NET需要 .NET框架的支持 。从6.0到.net是脱胎换骨的升级，VB已经成为一个完全面对对象的语言了

不知道老兄到底为了实现什么功能，我想对于我们程序员（当然，我现在还不是）来说结果是目的