WinCC Bildwechsel funktioniert nicht

[Scanda]

Zuviel Werbung?
-> Hier kostenlos registrieren

Sub wincc_trace_oeffnen (Byval Item)
Dim objScrWindow
Dim objScreen, Index
'Dim name
 
For Index = 1 To HMIRuntime.Screens.Count
 Set objScreen = HMIRuntime.Screens(Index)
 
 If( UCase(objScreen.ObjectName) = UCase("pdl_Hauptmaske"))Then
 
' name = ("test1")
' MsgBox (name)
 
Set objScrWindow = ScreenItems("Bildfenster1")
objScrWindow.ScreenName = "Mask_20_Statistikwerte"
 
 
 
' name = ("test2")
' MsgBox ( name)
 
 End If
Next
End Sub

Das Script wird immer zwischen den beiden Messageboxen beendet. Diesen Code hab ich aus der WinCC Hilfe, sollte eigentlich funktionieren, was is daran falsch?

Ich hab auf pdl_Hauptmaske.pdl ein Objekt namens "Bildfenster1". Darin möchte ich nun ein neues Bild öffnen.