... hay hay cỡ nhỏ. Phát triển AutoCAD bằng ActiveX và VBA || 119933 ("", "Flyout", "Demonstrates a flyout button", _ "OPEN", True) ’ Tạo ... ButtonType = Choose(Button.Type + 1, "Button", _ "Separator", "Control", "Flyout") msg = msg & ButtonType & ": " If Button.Type = acToolbarButton ... lệnh "ESC ESC _open " openMacro = Chr(3) + Chr(3) + Chr(95) + "open" + Chr(32) Set newMenuItem = scMenu.AddMenuItem _ ("", Chr(Asc("&")) _ + "OpenDWG",...