Sera a tutti vorrei far partire un video a schermo pieno, preciso che mi serve per il gioco che sto realizando.
il code che uso è questo:
codice:
#Region "library"

Imports Microsoft.DirectX
Imports Microsoft.DirectX.Direct3D
Imports Microsoft.DirectX.DirectDraw
Imports Microsoft.DirectX.DirectInput
Imports Microsoft.DirectX.DirectSound
Imports System
Imports System.IO
Imports System.Net

#End Region


Public Class video
    Public Shared video As AudioVideoPlayback.Video
    Dim durata As Integer
    Dim conta As Integer
    Dim AppPath As Integer

    Private Sub video_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Windows.Forms.Cursor.Hide()
        'Video di Introduzione
        video = New AudioVideoPlayback.Video(AppPath() & "\Data\VIDEO\filmatoeagle.wmv", False)
        video.Owner = Me
        durata = video.Duration
        Timer1.Start()
        video.Play()


    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        conta += 1

        If conta = durata Then
            Timer1.Stop()
            video.Dispose()

        End If

    End Sub
il problema e che mi da errore in AppPath , come posso risolvere il problema?