Dim timed As B4XTimedTemplate
timed.Initialize(InputTemplate)
Dim sf As Object = Dialog.ShowTemplate(timed, "OK", "", "CANCEL")
Dim bar As AnotherProgressBar = timed.mBase.GetView(0).Tag
bar.ProgressColor = 0xFFD07C7C
bar.UpdateGraphics
Wait For (sf) complete (result As Int)