各位高手，请教下：
在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里面运行呢？？
