hi, i get an error with this...is there a mistake in it ?
Private Sub lvMedia_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvMedia.DoubleClick
Dim strFilename As String
Dim FileToPlay As String
Dim strAppPath As String
FileToPlay = lvMedia.FocusedItem.Text
strAppPath = Application.StartupPath
strFilename = strAppPath & "\" & FileToPlay
mpMedia.Open(strFilename)
mpMedia.Play()
End Sub
Mike
Private Sub lvMedia_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvMedia.DoubleClick
Dim strFilename As String
Dim FileToPlay As String
Dim strAppPath As String
FileToPlay = lvMedia.FocusedItem.Text
strAppPath = Application.StartupPath
strFilename = strAppPath & "\" & FileToPlay
mpMedia.Open(strFilename)
mpMedia.Play()
End Sub
Mike