cosi mi da lo stesso flash l'applicazione non si avvia
X = Shell(str, vbNormalFocus)
X = Shell(str, vbNormalFocus, 1)
X = Shell(str, 1, vbNormalFocus)
in tutti e tre i modi mi flescia