PC-DMIS Help Center - 2023.1
Click here to see this page in full context

Example - CBool Function

Sub Main()
    Dim A, B, Check
    A = 5: B = 5
    Check = CBool(A = B)
    MsgBox Check
    A = 0
    Check = CBool(A)
    MsgBox Check
End Sub