Sub InitForm
if SCV_IN_VCP then
msgBox "In VCP!"
elseif InStr(TrioCmd("get_version"), "ERROR") = 0 then
msgBox "In Trio"
else
msgBox "In VTW!"
end if
End Sub
Sub InitForm
if SCV_IN_VCP then
msgBox "In VCP!"
elseif InStr(TrioCmd("get_version"), "ERROR") = 0 then
msgBox "In Trio"
else
msgBox "In VTW!"
end if
End Sub