Public Class Form1
    Dim WithEvents phidgetServo As Phidgets.Servo
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        phidgetServo = New Phidgets.Servo
        TextBox1.Text = 90
        TextBox2.Text = "Not Connected"
        phidgetServo.open()
    End Sub
    Public Sub New()
        InitializeComponent()
    End Sub
    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TrackBar1.Scroll
        Dim i As Integer
        TextBox1.Text = TrackBar1.Value
        For i = 0 To phidgetServo.servos.Count - 1
            phidgetServo.servos(i).Position = TrackBar1.Value
        Next i
    End Sub
    Private Sub phidgetServo_Attach(ByVal sender As Object, ByVal e As _
      Phidgets.Events.AttachEventArgs) Handles phidgetServo.Attach
        TextBox2.Text = "Connected"
        TextBox3.Text = phidgetServo.servos.Count
        TextBox4.Text = (Str(phidgetServo.SerialNumber))
        TrackBar1.SetRange(phidgetServo.servos(0).PositionMin + 1, _
          phidgetServo.servos(0).PositionMax)
    End Sub
    Private Sub phidgetServo_Detach(ByVal sender As Object, ByVal e As _
      Phidgets.Events.DetachEventArgs) Handles phidgetServo.Detach
        Me.Close()
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If phidgetServo.Attached = True Then
            phidgetServo.close()
        End If
    End Sub
    Private Sub phidgetServo_Error(ByVal sender As Object, ByVal e As _
      Phidgets.Events.ErrorEventArgs) Handles phidgetServo.Error
        MessageBox.Show(e.Description)
        Me.Close()
    End Sub
End Class