Imports AxSftButtonLib25
Imports SftButtonLib25
Imports Softelvdm.OLEConvert

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
Friend WithEvents AxSftButton1 As AxSftButtonLib25.AxSftButton
Friend WithEvents AxSftButton2 As AxSftButtonLib25.AxSftButton
Friend WithEvents SftHelperComponent1 As Softelvdm.OCXHelper.SftHelperComponent
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
Me.AxSftButton1 = New AxSftButtonLib25.AxSftButton
Me.AxSftButton2 = New AxSftButtonLib25.AxSftButton
Me.SftHelperComponent1 = New Softelvdm.OCXHelper.SftHelperComponent(Me.components)
CType(Me.AxSftButton1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.AxSftButton2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'AxSftButton1
'
Me.AxSftButton1.Location = New System.Drawing.Point(32, 88)
Me.AxSftButton1.Name = "AxSftButton1"
Me.AxSftButton1.OcxState = CType(resources.GetObject("AxSftButton1.OcxState"), System.Windows.Forms.AxHost.State)
Me.AxSftButton1.Size = New System.Drawing.Size(96, 64)
Me.AxSftButton1.TabIndex = 0
'
'AxSftButton2
'
Me.AxSftButton2.Location = New System.Drawing.Point(160, 88)
Me.AxSftButton2.Name = "AxSftButton2"
Me.AxSftButton2.OcxState = CType(resources.GetObject("AxSftButton2.OcxState"), System.Windows.Forms.AxHost.State)
Me.AxSftButton2.Size = New System.Drawing.Size(96, 64)
Me.AxSftButton2.TabIndex = 1
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 266)
Me.Controls.Add(Me.AxSftButton2)
Me.Controls.Add(Me.AxSftButton1)
Me.Name = "Form1"
Me.Text = "Form1"
CType(Me.AxSftButton1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.AxSftButton2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)

    End Sub

#End Region
'--locate-marker--

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.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
    AxSftButton1.AVITransparent = True
    AxSftButton1.BorderAlways = True
    AxSftButton1.BorderStyle = SftButtonBorderStyleConstants.borderSftButtonStandard
    AxSftButton1.ButtonStyle = SftButtonStyleConstants.styleSftButtonDropDown
    AxSftButton1.DropDownPressed = False
    AxSftButton1.DropDownStyle = SftButtonDropDownStyleConstants.dropdownstyleSftButtonStandard
    AxSftButton1.FillOrientation = SftButtonOrientationConstants.orientationSftButtonHorizontal
    AxSftButton1.Orientation = SftButtonOrientationConstants.orientationSftButtonHorizontal
    AxSftButton1.Pressed = False
    AxSftButton1.ShowFocus = True
    AxSftButton1.Text = "Code Sample"
    AxSftButton1.TextAlignHorz = SftButtonAlignConstants.alignSftButtonCenter
    AxSftButton1.TextAlignVert = SftButtonAlignVertConstants.alignSftButtonVCenter
    AxSftButton1.UseThemes = SftButtonThemesConstants.themesSftButtonNo
    ' Behavior
    AxSftButton1.AllowFocus = True
    AxSftButton1.Bounce = SftButtonBounceStyleConstants.bounceSftButtonYes
    AxSftButton1.ClickInterval = 100
    AxSftButton1.DropDownDownClick = True
    AxSftButton1.DropDownFollows = False
    AxSftButton1.DropDownPressed = False
    AxSftButton1.DropDownToggle = False
    AxSftButton1.Enabled = True
    AxSftButton1.Follows = False
    AxSftButton1.OLEDragMode = SftButtonOLEDragModeConstants.OLEDragSftButtonNone
    AxSftButton1.OLEDropMode = SftButtonOLEDropModeConstants.OLEDropSftButtonNone
    AxSftButton1.RightToLeft = False
    AxSftButton1.Toggle = False
    ' Colors
    AxSftButton1.BackColor = SystemColors.Control
    AxSftButton1.BackColorStart = Color.Green
    AxSftButton1.BackColorEnd = Color.Blue
    AxSftButton1.BackColorFocus = SystemColors.Control
    AxSftButton1.BackColorFocusStart = Color.Red
    AxSftButton1.BackColorFocusEnd = Color.Green
    AxSftButton1.BackColorHover = SystemColors.Control
    AxSftButton1.BackColorHoverStart = Color.Yellow
    AxSftButton1.BackColorHoverEnd = Color.Cyan
    AxSftButton1.BackColorPressed = SystemColors.Control
    AxSftButton1.DarkEdgeColor = SystemColors.ControlDark
    AxSftButton1.ForeColor = Color.Black
    AxSftButton1.ForeColorGrayed = Color.Gray
    AxSftButton1.ForeColorDownArrow = Color.Blue
    AxSftButton1.ForeColorPressed = Color.Black
    AxSftButton1.LightEdgeColor = SystemColors.ControlLight
    AxSftButton1.ShadowEdgeColor = SystemColors.ControlDarkDark
    AxSftButton1.WhiteEdgeColor = SystemColors.ControlLightLight

End Sub
End Class