VBA生成一个CorelDraw工具栏

'VBA生成一个CorelDraw工具栏

Private Sub CommandButton2_Click()
     On Error Resume Next
     CommandBars("我的工具").Delete
     CommandBars.Add("我的工具").Visible = True
     FrameWork.CommandBars("我的工具").Controls.AddCustomButton "2cc24a3e-fe24-4708-9a74-9c75406eebcd", "converto.conver.ConverTo"
End Sub