Private Sub Form_Load()
' This sample doesn't do anything "useful". Its only purpose
' is to provide runtime initialization of a SftButton control,
' so we have some code samples for the properties.

' It is a lot easier to set properties at design-time using
' the property pages. Right-click on the control, then select
' "Properties" from the popup menu to access the property pages.

' Appearance
    SftButton1.AVITransparent = True
    SftButton1.BorderAlways = True
    SftButton1.BorderStyle = borderSftButtonStandard
    SftButton1.ButtonStyle = styleSftButtonDropDown
    SftButton1.DropDownPressed = False
    SftButton1.DropDownStyle = dropdownstyleSftButtonStandard
    SftButton1.FillOrientation = orientationSftButtonHorizontal
    SftButton1.Orientation = orientationSftButtonHorizontal
    SftButton1.Pressed = False
    SftButton1.ShowFocus = True
    SftButton1.Text = "Code Sample"
    SftButton1.TextAlignHorz = alignSftButtonCenter
    SftButton1.TextAlignVert = alignSftButtonVCenter
    SftButton1.UseThemes = themesSftButtonNo
' Behavior
    SftButton1.AllowFocus = True
    SftButton1.Bounce = bounceSftButtonYes
    SftButton1.ClickInterval = 100
    SftButton1.DropDownDownClick = True
    SftButton1.DropDownFollows = False
    SftButton1.DropDownPressed = False
    SftButton1.DropDownToggle = False
    SftButton1.Enabled = True
    SftButton1.Follows = False
    SftButton1.OLEDragMode = OLEDragSftButtonNone
    SftButton1.OLEDropMode = OLEDropSftButtonNone
    SftButton1.RightToLeft = False
    SftButton1.Toggle = False
' Colors
    SftButton1.BackColor = vbButtonFace
    SftButton1.BackColorStart = vbGreen
    SftButton1.BackColorEnd = vbBlue
    SftButton1.BackColorFocus = vbButtonFace
    SftButton1.BackColorFocusStart = vbRed
    SftButton1.BackColorFocusEnd = vbGreen
    SftButton1.BackColorHover = vbButtonFace
    SftButton1.BackColorHoverStart = vbYellow
    SftButton1.BackColorHoverEnd = vbCyan
    SftButton1.BackColorPressed = vbButtonFace
    SftButton1.DarkEdgeColor = vbButtonShadow
    SftButton1.ForeColor = vbBlack
    SftButton1.ForeColorGrayed = vbGray
    SftButton1.ForeColorDownArrow = vbBlue
    SftButton1.ForeColorPressed = vbBlack
    SftButton1.LightEdgeColor = vb3DLight
    SftButton1.ShadowEdgeColor = vb3DShadow
    SftButton1.WhiteEdgeColor = vb3DShadow
End Sub