Sub rbtTest_CheckedChange(Checked As Boolean)
rbt = Sender
RadioButtonIndex = rbt.Tag
lblActualPosition.Text = "Actual Position " & rbt.tag
resultat = rbt.tag
End Sub
Sub ToggleButton1_CheckedChange(Checked As Boolean)
resultat2 = resultat
If ToggleButton1.Checked = True Then
Timer1.Enabled = True
lblActualPosition.Text = lblActualPosition.Text
Select resultat2
Case 1
lblNextPosition.Text = "Next Position RadioButton 2"
Case 2
lblNextPosition.Text = "Next Position RadioButton 3"
Case 3
lblNextPosition.Text = "Next Position RadioButton 1"
End Select
Else
Timer1.Enabled = False
End If
End Sub