How to get this working?

[PeteD]

I agree! Use:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Enabled = Not Button1.Enabled
End Sub