Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button3.Click
 
        ' Create a NXT brick,
        Dim Brick As NxtBrick = New NxtBrick(NxtCommLinkType.USB, 0)
 
        ' Attach a motor to port A.
        Brick.MotorA = New NxtMotor()
 
        ' Attach a touch sensor to port 3.
        Brick.Sensor3 = New NxtTouchSensor()
        Brick.Sensor3.PollInterval = 50
 
        Dim touchSensor = New NxtTouchSensor()
        touchSensor = New NxtTouchSensor()
        Brick.Sensor3 = touchSensor
        touchSensor.PollInterval = 50
 
        ' Events
        touchSensor.OnPressed += New NxtSensorEvent(AddressOf _
          touchSensor_OnPressed)
 
        ' Connect to the NXT.
        brick.Connect()
 
        '...
 
        Brick.Disconnect()
 
    End Sub
 
    ''' <summary>
    ''' Poll Touch sensor
    ''' </summary>
    Private Sub touchSensor_OnPressed(polleditem As NxtPollable)
 
        Dim touchSensor As NxtTouchSensor = DirectCast(polleditem, _
          NxtTouchSensor)
        Dim current As Boolean = touchSensor.IsPressed
        If current = True Then
            pressed = "Sensor Is Pressed"
        Else
            ' end if
            pressed = "Sensor Is Not Pressed"
        End If
    End Sub

Joachim