Solved - Toggle Button Code

[westconn1]

Private Sub CommandButton1_Click()
Static onoff As Boolean
onoff = Not onoff
CommandButton1.Caption = -CInt(onoff)
End Sub

pete