Imports System.Media
Imports System.IO

Public Class Form1
    Private strLiedjeArray() As String
    Private strLocatie As String
    Private i As Integer

    Private Sub UpToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        'Player1.settings.volume = Player1.settings.volume + 10
    End Sub
    Private Sub DownToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        'Player1.settings.volume = Player1.settings.volume - 10
    End Sub
    Private Sub MuteToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        ' If Player1.settings.volume = Player1.settings.mute() Then
        'Player1.settings.volume = 20
        ' Else
        ' Player1.settings.volume = Player1.settings.mute()
        ' End If
    End Sub
    Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlay.Click
        'Player1.Ctlcontrols.play()
    End Sub
    Private Sub btnPauze_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPauze.Click
        ' Player1.Ctlcontrols.pause()
    End Sub
    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        ' Player1.Ctlcontrols.stop()
    End Sub

    Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click
     
        Opd.ShowDialog()
        strLocatie = InputBox("waar")

        ReDim strLiedjeArray(i)
        Opd.InitialDirectory = strLocatie
        lstPlaylist.Items.Add(Opd.FileName)
        strLiedjeArray(i) = Opd.FileName                  
        Player1.URL = Opd.FileName
        Player1.Ctlcontrols.play()


    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Application.Exit()
    End Sub
    Private Sub lstPlaylist_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstPlaylist.DoubleClick
        Player1.URL = lstPlaylist.SelectedItem
    End Sub

   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        i = i + 1
        Player1.URL = strLiedjeArray(Opd.FileName)





    End Sub
End Class