Adding a Button (for Ctrl + F9)

Hello!!

Add button

What is the Code equivalent for Cltr+F9  to be placed in my “Sub PushBtnEvent_Start()” procedure, see below:

Dim state

Sub PushBtnEvent_Start()

  Rem TODO: Add your code here

End Sub

Sub PushBtnEvent_Exec(Inputs,Outputs)

   Outputs(0).value = state

End Sub

Sub PushBtnEvent_Stop()

  Rem TODO: Add your code here

End Sub

Sub PushBtn_Click()

   If state = 0 Then

     state = 1

   Else

     state = 0

   End If

   PushBtn.Recalculate()

End Sub

thanks!!