Dim h1 As Integer = &H804
        Dim h2 As Integer = &H80
 
        If CBool(h1 And h2) Then
            Debug.WriteLine("Is set") ' Nix
        End If
 
        h1  = &H884
 
        If CBool(h1 And h2) Then
            Debug.WriteLine("Is set") ' Wird geschrieben
        End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist