'*******************************************************
'
'Switch Slider Control Example
'
'Copyright (c) 1997, 2008 Iocomp Software
'
'*******************************************************
'
'This simple example illustrates using the Switch Slider Control.
'
'This example also demonstrates the following...
'1) Modifying basic control properties at runtime
'
'Permission is granted to distribute this source code without restriction.
'http://www.iocomp.com
'
 
Public Class SwitchSliderMain
    Inherits System.Windows.Forms.Form
 
#Region " Windows Form Designer generated code "
 
Diesen Code habe ich herausgelöscht - war zu lang!
 
#End Region
 
    Private Sub SwitchSliderMain_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'Below shows a few of the many configuration
        'properties that can be set on the control.
 
        AxiSwitchSliderX1.Height = AxiSwitchSliderX1.Height * 2
        AxiSwitchSliderX1.Width = AxiSwitchSliderX1.Width * 1.2
        AxiSwitchSliderX1.PositionLabels = "Off, Standby, Manual, Program," & _
          "Auto, Test"
 
        'Initiailize label
        Label1.Text = "Value = " & AxiSwitchSliderX1.GetPositionLabel( _
          AxiSwitchSliderX1.Position)
 
        'Centering Control for demonstration purposes only.
        AxiSwitchSliderX1.Left = ClientSize.Width / 2 - AxiSwitchSliderX1.Width _
          / 2
        AxiSwitchSliderX1.Top = ClientSize.Height / 2 - _
        AxiSwitchSliderX1.Height / 2
    End Sub
 
    Private Sub AxiSwitchSliderX1_OnPositionChangeUser(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      AxiSwitchSliderX1.OnPositionChangeUser
        Label1.Text = "Value = " & AxiSwitchSliderX1.GetPositionLabel( _
        AxiSwitchSliderX1.Position)
    End Sub
End Class