Public Sub LoadMusic()
        Dim files As String() = IO.Directory.GetFiles("C:\Users\Public\Music\Sample Music")
        For Each s As String In files
            Dim mfcntl As New MusicFile
            If s.EndsWith(".mp3" Or ".mp2" Or ".mp1") Then

                Dim inf As New TID3InfoEx
                mfcntl.Dock = DockStyle.Top
                player.LoadFileID3Ex(s, TStreamFormat.sfAutodetect, inf, True)
                Try
                    Dim img As Image = ResizeImage(Image.FromHbitmap(inf.Picture.Bitmap.GetHbitmap), New Size(64, 64), True)
                    mfcntl.AlbumPhoto.Image = img
                Catch ex As Exception
                    mfcntl.AlbumPhoto.Image = My.Resources.music
                End Try
                If inf.Artist IsNot "" Then
                    mfcntl.ArtistLbl.Text = inf.Artist
                Else
                    mfcntl.ArtistLbl.Text = "Unknown Artist"
                End If
                If inf.Title IsNot "" Then
                    mfcntl.TrackLabel.Text = inf.Title
                Else
                    mfcntl.TrackLabel.Text = FileIO.FileSystem.GetName(s)
                End If

                mfcntl.PathLbl.Text = s
                MusicTabPanel.Controls.Add(mfcntl)

            ElseIf s.EndsWith(".ogg" Or ".oga" Or ".flac" Or ".wav" Or ".ac3" Or ".aac") Then
                mfcntl.Dock = DockStyle.Top
                mfcntl.ArtistLbl.Text = "Unknown artist"
                mfcntl.TrackLabel.Text = FileIO.FileSystem.GetName(s)
                mfcntl.PathLbl.Text = s
                MusicTabPanel.Controls.Add(mfcntl)

            End If


        Next
    End Sub