VB6 Dynamic Menu-, Popup- and Toolbar-Demo (vbRichClient-based)

[wuxiu]

Thanks Olaf.

Set the Panel.WidgetRoot.Zoom， must be after then statement（Form_ResizeWithDimensions sub）: View.CurLayout.ResizeOnParent

[xiaoyao]

set menu font size 200%,300%

  Set TopPanel = Cairo.WidgetForms.CreateChild(hWnd)
  TopPanel.WidgetRoot.Zoom = 3
  Set MenuBar = TopPanel.Widgets.Add(New cwMenuBar, "MenuBar", 0, 0, ScaleWidth, 25 * TopPanel.WidgetRoot.Zoom)

How to set the toolbar icon to enlarge? Up and down, left and right in the middle?