Example - CBool Function

1. Sub Main

   1. Dim A, B, Check

      A = 5: B = 5

      Check = CBool(A = B)

      Print Check

      A = 0

      Check = CBool(A)

      Print Check

   End Sub