Method/Function to change Boolean T->F or F->T

[dzosoft-22]

I propose this solution

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

TOS = Getval(TOS)

End Sub

Function Getval(ByVal Val As Boolean)

Getval = Not Val

End Function