' One of Transitions (1-4) set in the vMix GUI
dim vTransition as string = "CubeZoom"

dim xml as string = API.XML()
dim x as new system.xml.xmldocument
x.loadxml(xml)

'Get the duration of the transition
Dim vDuration as string = x.SelectSingleNode("//transition[@effect='" & Vtransition & "']/@duration").Value

'Input that is currently active
Dim vActive as string = x.SelectSingleNode("//active").InnerText

Dim vElapsed As TimeSpan 
Dim watch As Stopwatch = Stopwatch.StartNew()

'Execute the transition
API.Function(vTransition,,duration:=vDuration )

Do While true

    xml= API.XML()
    x.loadxml(xml)
  
    If x.SelectSingleNode("//preview").InnerText = vActive 
       ' if preview becomes what was active the transition is done
       console.writeline("Done")
       API.Function("SetText",Input:=1,SelectedName:="Headline.Text" ,Value:="DONE")  
       Exit do 
    else
       ' a bit of countdon based on the transition duration (formula can be improved)
       API.Function("SetText",Input:=1,SelectedName:="Headline.Text" ,Value:=(vDuration/1000) - Math.Floor(watch.Elapsed.TotalMilliseconds/1000) ) 
       Console.WriteLine( vDuration/1000 - Math.Floor(watch.Elapsed.TotalMilliseconds/1000))
    end if
    ' sleep(100)
Loop