Based on your previous posts you don't want help but for someone to write you one ! (still waiting for the few beers worth ;-) )

All necessarily info to achieve this can be found in the previous post allready mentiond scripting for dummies post combined with Google search on vb.net programming.

Hint: check the API XML to find which input is on layer with index 0 of the particualr Input . Perform the PreviewInput function with the found Input key

I realy work hard to understed it...:)
I tried something like that and with no success


dim xml as string = API.XML()
dim Overlay_1 as string = ""
dim activeinput as string = ""
dim x as new system.xml.xmldocument
dim PROGInputNodeList As XMLNodeList
x.loadxml(xml)

activeinput = (x.SelectSingleNode("//active").InnerText)
Overlay_1 = (x.SelectSingleNode("//input[@number='"& activeinput &"']/overlay[1]/@key").value)

sleep (1000)
API.Function("PreviewInput",Input:="Overlay_1")

Thank Doggy.. These were good hints
it works


'******* Now you owe me a few beers....:)**************

dim xml as string = API.XML()
dim InputActiveName as string = ""
dim OverlayKey as string = ""
dim activeinput as string = ""

dim x as new system.xml.xmldocument
x.loadxml(xml)

activeinput = (x.SelectSingleNode("//active").InnerText)
InputActiveName = (x.SelectSingleNode("//vmix/inputs/input[@number='"& activeinput &"']/overlay/@key").Value)

API.Function("PreviewInput",Input:=InputActiveName)


'****************************************************