CheckBox hop

Hvorfor kan jeg ikke få fluebenet til at hoppe til den box jeg klikker på:

Private Sub box1_Click()
If box1.Value = 1 Then
Timer1.Interval = 1000
Else
Timer1.Interval = 0
End If

If box1.Value = 0 Then
box2.Value = 1
End If
If box1.Value = 1 Then
box2.Value = 0
End If
If box1.Value = 1 Then
box3.Value = 0
End If
End Sub

Private Sub box2_Click()
If box2.Value = 1 Then
Timer1.Interval = 500
Else
Timer1.Interval = 0
End If

If box2.Value = 0 Then
box3.Value = 1
End If
If box2.Value = 1 Then
box1.Value = 0
End If
If box2.Value = 1 Then
box3.Value = 0
End If
End Sub

Private Sub box3_Click()
If box3.Value = 1 Then
Timer1.Interval = 250
Else
Timer1.Interval = 0
End If

If box3.Value = 0 Then
box1.Value = 1
End If
If box3.Value = 1 Then
box2.Value = 0
End If
If box3.Value = 1 Then
box1.Value = 0
End If
End Sub

Dette laver en fejl.

T2C