Imports Un4seen.Bass
 
Public Class Form1
    Public stream As Integer
    Public peak(2) As Single
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        If Bass.BASS_Init(-1, 44100, BASSInit.BASS_DEVICE_DEFAULT, Me.Handle) = _
          False Then
            MessageBox.Show("Fehler beim Laden der Library")
        End If
 
 
        stream = Bass.BASS_StreamCreateFile("F:\X_VERSUCH1/Versuch-eins.mp3", _
          0, 0, BASSFlag.BASS_STREAM_AUTOFREE Or BASSFlag.BASS_STREAM_PRESCAN)
        Bass.BASS_ChannelPlay(stream, False)
 
    End Sub
 
    '--------------------------------------------------------------------------
    ' ---------------------------
 
    Private Sub Peak_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
 
 
        'Bass.BASS_ChannelGetLevel(stream, peak)
        Dim rechts As Integer = (Math.Round(peak(1), 3) * 100)
        Dim links As Integer = (Math.Round(peak(2), 3) * 100)
        Try
            ProgressBar1.Value = rechts
            ProgressBar2.Value = links
        Catch
 
        End Try
 
    End Sub
 
 
End Class

Schon macht man es richtig funktioniert es !