Ho giā creato la form con i pulsanti ed il codice per la gestione dei video, ma i problemi sono due, il primo č che non č la pagina iniziale che devo allargare a schermo pieno, ma il video che lancio, ed il secondo, che il filmato parte rimanendo "iconizzato" e continuo a vedere la form iniziale.
Spero di essere stato abbastanza chiaro, comunque allego il codice che ho inserito:
Private Sub Paris_Dakar_Click()
On Error Resume Next
Dim pid As Long
pid = Shell(App.Path & "\mplayer2.exe paris_dakar.mpg")
Hide
Do
AppActivate pid, True
If Err <> 0 Then Exit Do
Loop
Show
End Sub
Private Sub Uscita_Click()
Unload Me
End Sub
Il codice per il secondo video č uguale.
Grazie mille
Fabio