RoBoIO.roboio_SetRBVer(RoBoIO.RB_100)
Dim i As Integer
For i = 0 To 23
RoBoIO.rcservo_SetServo(i, RoBoIO.RCSERVO_SERVO_DEFAULT_NOFB)
Next
Dim channel As Integer = 0
Dim temp As Integer = 0
Dim temp1 As Integer = 0
For a = 0 To 23
temp = 2 ^ a
If Not (a = 2 Or a = 3 Or a = 4 Or a = 5) Then
channel += temp
End If
temp1 += temp
Next
If RoBoIO.rcservo_Initialize(channel) = False Then
Me.Label_status.Text = RoBoIO.roboio_GetErrMsg()
Else
Me.Label_status.Text = "rcservo_Initialize succeesed!!!"
End If