[911]

أنظر لعنوان الفورم

كود :

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