e x un gioco come ho gia detto ,
x ora il codice ke ho messo per avviare il gioco è questo
Private Sub Command1_Click()
Dim app, returnvalue
app = Shell("C:\Programmi\Final Fantasy VII Edizione Italiana\ff7.exe", 5)
AppActivate app
End Sub