VB6.0中ActiveBar3.0关闭右键自定义菜单

Private Sub ABar_BandOpen(ByVal Band As ActiveBar3LibraryCtl.Band, ByVal Cancel As ActiveBar3LibraryCtl.ReturnBool)
    If Band.Name = "SysCustomize" Then
        Band.Visible = False
        DoEvents
    End If
End Sub