Can anyone tell me why this may not be working? This is VB Script in an outlook form that I have created. When I click on the checkbox, nothing happens. No errors or anything.

Sub checkbox1(value)
If value = -1 Then
Item.GetInspector.ModifiedFormPages("Form").airline.visible = true
Item.GetInspector.ModifiedFormPages("Form").airlinebox.visible = true
Item.GetInspector.ModifiedFormPages("Form").amount.visible = true
Item.GetInspector.ModifiedFormPages("Form").amountbox.visible = true
Else
Item.GetInspector.ModifiedFormPages("Form").frame3.airline.visible = false
Item.GetInspector.ModifiedFormPages("Form").frame3.airlinebox.visible = false
Item.GetInspector.ModifiedFormPages("Form").frame3.amount.visible = false
Item.GetInspector.ModifiedFormPages("Form").frame3.amountbox.visible = false

End If
End Sub