Toggle Button push issue

[biznez]

Hi everyone, i have this code but why do i have to click on the button twice for it to be pushed? Does the same vise versa.
Thanks for help

Private Sub ToggleButton2_Click()
    If ToggleButton2 = True Then
        ToggleButton2.ForeColor = 255
    ElseIf ToggleButton2.Value = False Then
        ToggleButton2.ForeColor = &H80000012
    End If
    ToggleButton3 = False
End Sub

Private Sub ToggleButton3_Click()
    If ToggleButton3 = True Then
        ToggleButton3.ForeColor = 255
    ElseIf ToggleButton3.Value = False Then
        ToggleButton3.ForeColor = &H80000012
    End If
    ToggleButton2 = False
End Sub

[sktneer]

See if you need this....

Private Sub ToggleButton2_Click()
    If ToggleButton2 = True Then
        ToggleButton2.ForeColor = 255
        ToggleButton3.ForeColor = &H80000012
    Else
        ToggleButton2.ForeColor = &H80000012
        ToggleButton3.ForeColor = 255
    End If
End Sub


Private Sub ToggleButton3_Click()
    If ToggleButton3 = True Then
        ToggleButton3.ForeColor = 255
        ToggleButton2.ForeColor = &H80000012
    Else
        ToggleButton3.ForeColor = &H80000012
        ToggleButton2.ForeColor = 255
    End If
End Sub