%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC%%%%%$$$$&&ABC0%%%%%$$$$&&ABC%%%%%$$$$&&ABC XBMP {Ext("Message")}&2%%%%%$$$$&&ABC 0f37c3a4e014b900d5a9a0857c3f0721d,/ Please, Wait..."Arial%%%%%$$$$&&ABC(  ShowProgressBar=00.000000100 100.000000``  Arial%%%%%$$$$&&ABC0.000000VBScript'Variables available on this screen can be declared and initialized here. 'Procedures available on this screen can be implemented here Dim auxTickCount,bFlag 'This procedure is executed just once when this screen is open. Sub Screen_OnOpen() $ShowProgressBar = 0 auxTickCount = $GetTickCount() bFlag = 0 End Sub 'This procedure is executed continuously while this screen is open. Sub Screen_WhileOpen() If auxTickCount + 2000 < $GetTickCount() And bFlag = 0 Then If $ShowProgressBar < 100 Then $ShowProgressBar = $ShowProgressBar + 1 auxTickCount = $GetTickCount() Else bFlag = 1 End If End If End Sub 'This procedure is executed just once when this screen is closed. Sub Screen_OnClose() $ShowProgressBar = 0 End Sub 4 Dim auxTickCount,bFlag Sub Screen_OnOpen() Call StSetMnTagVal__(573, 0, 0, 0, 0, 1, 8, "", 0) auxTickCount = StFunction1__(91, 0) bFlag = 0 End Sub Sub Screen_WhileOpen() If auxTickCount + 2000 < StFunction1__(91, 0) And bFlag = 0 Then If StGetMnTagVal__(573, 0, 0, 0, 0, "") < 100 Then Call StSetMnTagVal__(573, 0, 0, 0, 0, 1, 17, "", StGetMnTagVal__(573, 0, 0, 0, 0, "") + 1) auxTickCount = StFunction1__(91, 0) Else bFlag = 1 End If End If End Sub Sub Screen_OnClose() Call StSetMnTagVal__(573, 0, 0, 0, 0, 1, 27, "", 0) End Sub=SHOWPROGRESSBAR