Is my bitwise operation correct?

[Fazi]

i want to identify windows which fully or partially trasnparent. so i check those windows against WS_EX_LAYERED bit. i want to make sure below bitwise operation is correct.

Public Function isTrans(qhwnd As Long) As Boolean
Dim tmp As Long
tmp = GetWindowLong(qhwnd, GWL_EXSTYLE)
If tmp And WS_EX_TRANSPARENT Then
   isTrans = True ' yes it is 
Else
   isTrans = False ' no its not 
End If
End Function

is this correct? can i identify windows such as shown below using this code?