Private Sub relBitrate_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles relBitrate.Click
        Try
 
            opd.InitialDirectory = "c:\"
 
            opd.ShowDialog()
 
            player.URL = opd.FileName
 
            player.Ctlcontrols.stop()
 
 
 
        Catch ex As Exception
 
            MessageBox.Show("Some error occur so can't play media file", _
              "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
 
 
        End Try
        Dim AC As Integer
 
        Dim MyRate As Object
 
 
        AC = player.currentMedia.getAttributeCountByType("Bitrate", "") - 1
 
        MyRate = player.currentMedia.getItemInfoByType("Bitrate", "", AC)
 
        relBitrate.Text = MyRate.ToString
    End Sub