Dim buttonEnabledSet As Boolean = False
Private Sub button1_EnabledChanged(sender As Object, e As EventArgs) Handles button1.EnabledChanged
If buttonEnabledSet Then
button1.Enabled = Not button1.Enabled
MessageBox.Show("Button.Enabled property has already been set.")
Else
buttonEnabledSet = True
End If
End Sub