KTBButton
KTBLanguage
KTBList see KTBButton
KTBStyle
KTBWindow

After adding a KillerToolBar Control to your window by dragging a canvas there and changing its Super to “KillerToolBar”, do the following…
(The following assumes that you’ve named your toolbar “KillerToolBar1″)

First you will need to initialize the toolbar by calling the “Setup” procedure. The parameters for the Setup procedure are outlined below:

dim strName as string = "MyKillerToolbar" '// The name which will be displayed in the "Customize" window title.
dim intX as Integer = 0 '// The X position of the toolbar on the window.
dim intY as Integer = 0 '// The Y position of the toolbar on the window.
dim intWidth as Integer = self.Width '// The width of the toolbar in pixels.
dim intHeight as Integer = 100 '// The height of the toolbar in pixels.
dim blnVert as Boolean = False '// Whether the toolbar will be vertical or horizontal (True = Vertical).
dim ktbButtonStyle as KTBStyle = new KTBStyleFudge '// The appearance of the buttons as defined by a class derived from the KTBStyle interface.
dim ktbToolbarStyle as Integer = 0 '// Determines the display type for the buttons, such as "Big Icons with labels", etc.
dim blnPref as Boolean = False '// True means this a preferences toolbar, and will not be customizable.  All buttons will be grouped together.
dim intIconSize as Integer = 32 '// The size of the icon.  KTB will automatically scale provided images to match this value.
 
KillerToolBar1.Setup(strName,intX,intY,intWidth,intHeight,blnVert,ktbButtonStyle,intToolbarStyle,blnPref,intIconSize)

Create as many buttons, controls or spacers as you like for your KillerToolBar:

dim strName as String = "SomeName" '// A name for the button. Used to see which button was pressed, so make this unique!
dim strCaption As String = "Save" '// The text that appears below / alongside the button
dim strHelpTag As String = "Save the current document" '// The help tag text
dim pIcon As Picture = SaveIcon '// The picture to use as the button image
dim pIconMask As Picture = SaveIconMask '// The mask for the above, or if the above contains a composite mask just use the same picture here
dim pIcon16 As Picture = SaveIcon16 '// A 16x16px image for the button, or if you don’t have one just use the same as theIcon and KillerToolBar will make one from that
dim blnVisible As Boolean = True '// Should this button be visible by default? If not, it will appear in the “Available Buttons” list in the “Customize” window…
dim blnEnabled As Boolean = True '// Should this button be enabled by default?
dim mnuMenu As MenuItem '// Drop down menu for the button. If none, use nil
dim ctlControl As RectControl = TextField1 '// A RectControl for the button – e.g. an EditField
dim blnStretch As Boolean = False '// In a horizontal toolbar, if set to true will Stretch the above control to available space. Note: Only one control can be stretched.
 
KillerToolBar1.CreateButton(strName,strCaption,strHelpTag,pIcon,pIconMask,pIcon16,pIconMask16,blnVisible,blnEnabled,mnuMenu)
KillerToolBar1.CreateControl(strName,strCaption,strHelpTag,blnVisible,ctlControl,blnStretch)
KillerToolBar1.CreateSpacer(blnVisible)

Call the “Update” procedure to finish setting up your KillerToolBar:

KillerToolBar1.Update

And that’s IT!!

Additionally, to make things pretty, you may add the following line to your Window’s DEACTIVATE Event:

KillerToolBar1.LostFocus(true)

And this one in your Window’s ACTIVATE Event:

KillerToolBar1.LostFocus(false)