German mehrere Variablen vergleichen

    ' integers
    Dim a,b,c,h As Int
    a=1 : b=1 : c=1 : h=1
    If a = b And b = c And h = a Then
        xui.MsgboxAsync("the integer variables are equal","Integer")
    End If
    ' booleans
    Dim d,e,f As Boolean
    d=True : e=True : f=True    ' or d=False:e=True:f=False  ' or d=False:e=False:f=True
    If d = (e = f) Then
        xui.MsgboxAsync("the boolean expression is true","Boolean")
    End If