Private Sub UltraButton1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles UltraButton1.Click
        Dim str() As Byte
        str = readKey( _
          "Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify")
        Dim str2 As String = ""
        str2 = ??
    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