Variabel Bit weise auswerten

Hallo zusammen,

in einer Steuerung habe ich einen Merker Word 70 angelegt.
Mit den Bits sollen Objekte im Panel TP1200 sichtbar gemacht werden.
Beispiel:
Ist das Bit0 und Bit7 gesetzt dann soll das Objekt „ObjectRectangle“ sichtbar werden oder
Ist das Bit3 und Bit12 gesetzt dann soll das Objekt „ObjectRectangle2“ sichtbar werden
Unabhängig von den Zustand der anderen Bits im MW70.
Was fehlt mir in dem VB-Script!

Dim ObjectRectangle
Dim bBitVar
Set ObjectRectangle = HmiRuntime.Screens("Übersicht").ScreenItems("Rectangle_1")
Set bBitVar = SmartTags("MerkerWord70") And &H04
If bBitVar = True Then
ObjectRectangle.Visible = True

End If

Danke im Voraus

Hier ein Beispiel für WinCC als Sript in C

sprintf (ObjectName, "%s_Status",TagName);
if ((RawBit [70] [1] == 1) & (RawBit [70] [2] == 1)){
SetVisible(lpszPictureName,ObjectName,1);
else if ((RawBit [70] [1] == 1) & (RawBit [70] [2] == 0)){
SetVisible(lpszPictureName,ObjectName,1);
else{
SetVisible(lpszPictureName,ObjectName,0);
}

Wie kann ich das in VB-Script umschreiben.
Das RawBit ist bei mit das MW70

Hallo,

die Vorlagen in der Toolbox war Hilfreich!
Anbei der Lösungsansatzt für die Bit Auswertung

If SmartTags("DBSPS_DBStatus") And 2^5  Then
If SmartTags("DBSPS_DBStatus") And 2^8  Then
HmiRuntime.Screens("01 Übersicht").ScreenItems("Kreis_1").Visible = True
Else
HmiRuntime.Screens("01 Übersicht").ScreenItems("Kreis_1").Visible = False
End If
Else
HmiRuntime.Screens("01 Übersicht").ScreenItems("Kreis_1").Visible = False
End If

 Es wird eine Variabel direkt aus der SPS ausgelesen mit einen Trigger (Taktmerker aus der SPS).
 Ein Keis wird damit Sichbar bzw. unsichtbar geschaltett.
Frage: kann der Steuerungsbefehl "If Then" für die Bitdarstellung vereifachen
z.B mit  

If (SmartTags("DBSPS_DBStatus") And 2^5) And (SmartTags("DBSPS_DBStatus") And 2^5) Then