Public Class Radiostreamer
 
  Dim Prozentpuffer As Integer
 
  Private Sub Form1_Load()(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
      Timer1.Enabled = True
      Timer1.Start()
  End Sub
 
 
  Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles Timer1.Tick
 
      If player.status.Contains("Pufferung") Then
          Prozentpuffer = Mid(player.status, 12, 13) 'Ungültige Konvertierung 
          ' von der Zeichenfolge  in Typ Integer.
          ProgressBar1.Value = Prozentpuffer
      End If
  End Sub

----------------------------------------------------------

{brigens Ein Kezboard/Treiber ist v;llig [berfl[ssig!