German mehrere Variablen vergleichen

[bonap]

Hallo,
wie kann man mehrere Variablen gleichzeitig überprüfen?

Bsp.:

Dim a,b,c As Int

a=1:b=1:c=1
If a=b=c Then

End If

funktioniert leider nicht.

 

[PaulMeuris]

    ' 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

 

[bonap]

Vielen Dank für die schnelle Antwort. Hatte mir schon gedacht, das da leider keine Vereinfachung gibt.

Bonap