Hi John,

The suggested code should read:

'=============
Private Sub ToggleButton1_Click()
With Me.ToggleButton1
.Caption = IIf(.Value, "A", "B")
.BackColor = IIf(.Value, &H8080FF, &HFF0000)
End With
End Sub
'<<=============


---
Regards,
Norman