Private Sub AxWindowsMediaPlayer1_StatusChange(sender As Object, e As EventArgs) Handles AxWindowsMediaPlayer1.StatusChange Me.Text = Me.AxWindowsMediaPlayer1.playState.ToString.Replace("wmpps", String.Empty) End Sub