Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
        AxWindowsMediaPlayer1.Visible = True   'Player unsichtbar machen
 
        Label2.Text = AxWindowsMediaPlayer1.settings.volume
 
 
        AxWindowsMediaPlayer1.settings.autoStart = False
 
        AxWindowsMediaPlayer1.URL = ("http://mushaha.asx")
 
    End Sub
 
 
 
    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TrackBar1.Scroll
        AxWindowsMediaPlayer1.settings.volume = TrackBar1.Value
    End Sub
End Class