Originariamente inviato da kappabit
nulla?
Beh, c'è già una discussione qui, cmq:
codice:
Imports Microsoft.DirectX.AudioVideoPlayback
'...
Dim V As New Video(<nome file>)
Dim T As TimeSpan

T = TimeSpan.FromSeconds(V.Duration)
MsgBox(V.Duration & " secondi, ossia " + T.ToString + " ore.")
'...