Enfin je trouve le temps de vous repondre a ce question voici mon soulution :
j'excute la commande de lecture video comme une commande shell >windplayer fichier.avi mais le media player n'a pas reussie de comprendre le type de fichier j trouve autre lecteur et je l'intalle sur le pocket pc par exemple "the-core-pocket-media-player-tcpmp_tcpmp_v0.71_.exe_francais_36287.exe" qui enfin me permet de fonctionne tout le video.
remarque: j'ajoute une class supplementaire pour excuter mon commande
"Launch". Dim Process AsNewLaunch
Launch.CreateProc("\Program Files\mplayer.exe",
"\Storage Card\Video\" + flm.pBa,Nothing)
et voici la class Launch
Imports
System.Runtime.InteropServices
PublicClass Launch
<DllImport("CoreDll.DLL", SetLastError:=True)> _
PrivateSharedFunction CreateProcess(ByVal
imageName AsString,
ByVal cmdLine AsString, ByVal
lpProcessAttributes As IntPtr, ByVal lpThreadAttributes As
IntPtr, ByVal boolInheritHandles As Int32, ByVal
dwCreationFlags As Int32, ByVal lpEnvironment As
IntPtr, ByVal lpszCurrentDir As IntPtr, ByVal si()
AsByte, ByVal pi As
ProcessInfo) AsInteger
EndFunction
<DllImport("CoreDll.dll")> _
PrivateSharedFunction GetLastError() As
Int32
EndFunction
PublicSharedFunction CreateProc(ByVal
ExeName AsString,
ByVal CmdLine AsString, ByVal
pi As ProcessInfo) AsBoolean
If pi IsNothingThen
pi = New ProcessInfo
EndIf
Dim si(127) AsByte
Return CreateProcess(ExeName, CmdLine, IntPtr.Zero,
IntPtr.Zero, 0, 0, IntPtr.Zero, IntPtr.Zero, si, pi) <> 0
EndFunction'CreateProc
EndClass'Externals
PublicClass ProcessInfo
Public hProcess As
IntPtr
Public hThread As
IntPtr
Public ProcessId As
Int32
Public ThreadId As Int32
EndClass