Private Sub play_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles play.Click
        importdiag.ShowDialog()
 
        Bass.BASS_StreamFree(stream)
        stream = Bass.BASS_StreamCreateFile(importdiag.FileName, 0, 0, _
          BASSFlag.BASS_STREAM_AUTOFREE Or BASSFlag.BASS_STREAM_PRESCAN)
        Bass.BASS_ChannelPlay(stream, False)
 
    End Sub
 
    Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, _
      ByVal e As System.EventArgs)
 
    End Sub
    Private Sub playlist_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Try
            System.IO.File.Copy(CurDir() + "\bass.dll", _
              "C:\Windows\System32\bass.dll")
        Catch
        End Try
        Bass.BASS_Init(-1, 192000, BASSInit.BASS_DEVICE_CPSPEAKERS, _
          IntPtr.Zero, Nothing)
 
 
    End Sub
    Private Sub Peak_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer2.Tick
        Bass.BASS_ChannelGetLevel(stream, peak)
 
        Dim rechts As Integer = (Math.Round(peak(1), 3) * 100).ToString
        Dim links As Integer = (Math.Round(peak(2), 3) * 100).ToString
 
        Try
 
            ProgressBar3.Value = rechts
            ProgressBar4.Value = links
        Catch
        End Try
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Bass.BASS_StreamFree(stream)
        stream = Bass.BASS_Stop
        Bass.BASS_ChannelPlay(stream, False)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        AxWindowsMediaPlayer1.URL = _
        "http://ndr-ndr2-hi-wma.wm.llnwd.net/ndr_ndr2_hi_wma"
 
    End Sub
 
End Class