Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim str() As Byte
        str = readKey( _
          "Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify")
        Dim RealString As String = ""
        For Counter As Integer = 0 To str.Length - 1
            Dim i As Integer = Integer.Parse(str(Counter), _
              System.Globalization.NumberStyles.AllowHexSpecifier)
            RealString = RealString & Convert.ToChar(i).ToString
        Next
        MsgBox(RealString)
    End Sub
 
    Private Function readKey(ByVal KeyName As String) As Byte()
        Dim rk As Microsoft.Win32.RegistryKey
        rk = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(KeyName)
        Dim MyVal() As Byte = rk.GetValue("IconStreams")
        Return MyVal
    End Function